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Chapter  I.    INTRODUCTION 

A  primary  interest  of  the  respiratory  physiologist  is  the  ability  to 
obtain  a  quantitative  measure  of  ventilation,  the  exchange  of  oxygen  and 
carbon  dioxide  between  the  alveolar  spaces  in  the  lnng  and  the  venoms  blood. 
Such  measurements  may  be  approximated  by  measuring  the  gas  exchange  between 
the  subject  and  the  atmosphere.  Classical  ventilation  measurements  (e.g.  bag 
techniques)  rely  on  the  collection  of  expired  gases  for  several  respiratory 
cycles  [14].  Such  measurements  yield  average  ventilation  values  so  that 
only  steady-state  responses  may  be  considered.  By  making  the  ventilatory 
measurements  on  a  per  breath  basis  the  ventilatory  response  to  transient  or 
short  duration  stimuli  is  possible  while,  by  totaling  the  per  breath  values, 
study  of  the  response  to  a  steady-state  stimulus  is  maintained.  These 
breath-by-breath  measurements  may  provide  both  the  clinician  and  the 
researcher  new  insights  into  the  health  or  conditioning  of  a  subject 
[6,14]. 

Recordings  at  the  mouth  of  the  bi-directional  (inspiratory  and  expira- 
tory) respiratory  gas  flow  and  flow  temperature  signals  and  the  concentration 
signals  of  the  component  gases  yield  a  complete  history  of  the  gas  exchanged 
between  the  atmosphere  and  the  subject.  Integration  of  the  flow,  which  is 
converted  to  constant  and  standard  conditions  using  the  flow  temperature  and 
ambient  conditions,  over  an  inspiratory  cycle  and  over  an  expiratory  cycle 
yields  the  respective  inspiratory  and  expiratory  tidal  volumes.  Also,  the 
flow  signal  can  be  multiplied  by  the  individual  gas  concentrations  to  obtain 
flows  of  the  individual  gases.  These  gas  flows  can  be  integrated  to  obtain 
their  respective  tidal  volumes.  The  difference  between  the  inspiratory 
volume  and  the  expiratory  volume  of  a  fis  yields  the  volume  of  gas  exchanged 
for  the  respiratory  cycle.  These  per  breath  tidal  volumes  and  exchanged 
volumes  can  be  converted  to  minute  values  by  dividing  by  the  respiratory 
cycle  time.  Also,  several  breath-by-breath  values  may  be  totaled  and 
averaged  to  obtain  an  average  response  over  a  specified  period  of  time. 

With  current  technology,  transducers  are  available  to  monitor  the 
necessary  signals  to  make  the  respiratory  measurements.  Pneumotachometer  and 
low  inertia  turbine  flow  transducers  provide  the  ability  to  monitor  bi- 
directional respiratory  flow.  Rapidly  responding  gas  analyzers  have  the 
ability  to  monitor  the  rapidly  varying  respiratory  gas  concentration  signals. 
A  rapidly  responding  temperature  transducer  can  monitor  the  flow  temperature 
signal.    These   signals  may  be  digitally  recorded  with  a  computer-based  data 


acquisition  system.  The  computer  provides  the  ability  to  numerically  inte- 
grate the  gas  flows.  The  computer  also  provides  the  flexibility  to  provide  a 
variety  of  techniques  for  data  display. 

A  Compute r-Based  Respiratory  Measurement  System  (CBRMS)  has  been 
developed  by  Creel  [4]  and  Riblett  [13]  to  monitor  four  respiratory  signals; 
respiratory  flow,  fractional  concentration  of  02  and  C07  in  the  dry  gas,  and 
respiratory  flow  temperature.  A  Godart  PneumoTachoGraph  (PTG),  using  a 
Fleisch  #2  PneumoTachoMeter  (PTM) ,  is  used  to  transduce  the  respiratory  flow 
signal.  A  Perkin-Elmer  1100  Medical  Gas  Analyzer  (the  acronym  GMS,  Gas  Mass 
Spectrometer,  is  used  to  refer  to  the  gas  analyzer)  is  used  to  transduce  the 
dry  gas  concentration  signals  of  O2,  F«  ,  and  CO2.  ^CO? *  ^°e  design  of  a 
rapidly  responding  temperature  transducer  based  on  a  0.001  inch  chromel- 
constantan  thermocouple  is  presented  in  this  study.  This  transducer  is  used 
to  monitor  the  respiratory  flow  temperature  signal. 

Using  the  fore-mentioned  signals  the  CBRMS  can  make  a  variety  of  venti- 
lation measurements.  These  breath-by-breath  ventilation  measurements  are  a 
measure  of  gas  exchange  between  the  lungs  and  the  atmosphere  on  a  per  breath 
basis  and  approximate,  assuming  no  change  in  pulmonary  gas  stores,  alveolar 
ventilation;  the  exchange  of  respiratory  gases  between  the  alveolar  spaces 
and  the  venous  blood.  Other  studies  have  extended  similar  systems,  using  the 
same  measured  signals,  to  calculate  the  true  alveolar  gas  exchange  on  a 
breath-by-breath  basis  [2]  yielding  additional  insight  into  transient  changes 
in  ventilation.  An  effort  to  provide  such  an  extension  to  the  CBRMS  of  this 
study  is  currently  under  way  with  promising  preliminary  results  [12]. 


3 
Chanter  II.   GENERAL  SYSTEM  DESCRIPTION 

To  appreciate  the  types  of  respiratory  measurements  made  with  the 
Computer-Based  Respiratory  Measurement  System  (CBRMS)  it  is  necessary  to  have 
a  general  understanding  of  the  respiratory  signals  and  how  the  system  mon- 
itors, records,  and  manipulates  these  signals.  The  measurements  necessary 
for  assessing  respiratory  ventilation  are  the  various  gas  volumes  (air, 
oxygen,  carbon  dioxide),  both  on  a  tidal  and  time  rate  basis  and  respiratory 
frequency.  Obtaining  these  measurements  for  each  breath  allows  investigation 
of  the  respiratory  system's  transient  and,  by  averaging  these  breath-by- 
breath  values,  steady-state  responses. 

An  overview  of  the  CBRMS  is  presented  in  this  chapter  while  the  details 
of  the  system  are  explained  later.  This  overview  provides  the  respiratory 
physiologist  the  necessary  understanding  to  make  confident  respiratory 
function  measurements.  Prior  to  the  overview  a  brief  discussion  of  the 
respiratory  signals  correlated  with  the  various  stages  of  the  respiratory 
cycle  is  presented.  Reference  to  several  introductory  physiology  texts 
provides  the  necessary  description  of  the  respiratory  system  and  defines  the 
necessary  terminology. 

2.1   The  Respiratory  Signals 

Investigation  of  respiratory  signals  appearing  at  the  mouth  is 
essential  in  understanding  how  a  system  may  be  developed  which  can  take  these 
signals  and  compute  values  for  the  respiratory  variables.  Consider  the 
respiratory  model  shown  in  Figure  2.1.1.  This  model  is  a  simple  representa- 
tion of  the  pulmonary  system. 

The  model  contains  the  necessary  detail  for  understanding  the  computa- 
tion of  the  breath-by-breath  gas  volumes  based  on  measurements  made  at  the 
mouth.  The  two  volumes  included  in  the  model  are  the  constant  dead  space 
volume,  including  that  added  by  the  PTM,  and  the  lung  volume  which  varies 
throughout  the  respiratory  cycle.  The  lung  volume  includes  the  various 
pulmonary  volumes  (tidal  volume,  inspiratory  reserve  volume,  expiratory 
reserve  volume,  and  residual  volume)  and  the  pulmonary  capacities  (functional 
residual  capacity,  inspiratory  capacity,  vital  capacity,  total  lung  capacity) 
[6].  The  alveolar  oxygen  consumption  and  carbon  dioxide  production  are  also 
included   in   the  model.    These  values  may  be  derived  from  the  mouth  values 


using   this  model    [2,12]. 


(F»02)p(F»C02)p(^N2)i.(FwH20)l 


(Fwoj'e-  (f"co2)e-  ^"n^e-  ^"hjo'e 


arterial  blood 


**«M  .(p02)a'(pC02'a 


Figure  2.1.1   A  respiratory  model  for  understanding  breath-by-breath  measure- 
ments made  at  the  mouth. 


A  mask  containing  a  heated  PTH  flow  transducer  is  placed  over  the 
subject's  mouth  and  nose.  Mounted  in  the  PTH  are  the  GHS  and  temperature 
transducer  probes.  The  heated  PTM  alters  the  respiratory  system's  dead 
space,  resistance,  and  inspiratory  temperature  and  is  the  only  transducer 
which  has  an  effect  on  the  respiratory  system.  The  specific  effects  of  the 
heated  PTM  are  not  investigated  in  this  study. 

The  respiratory  gas  movement  and  composition  can  be  summarized  by 
monitoring  six  variables  at  the  mouth.  These  variables  are  total  gas  flow, 
the  gas  concentrations,  and  the  gas  temperature.  Figure  2.1.2  shows  these 
variables  during  two  respiratory  cycles.  These  signals  can  be  correlated 
with  the  inspiratory  (negative  flow  and  the  dotted  lines)  and  expiratory 
(positive  flow  and  the  solid  lines)  phases  of  the  respiratory  cycle. 
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Figure  2.1.2   The  respiratory  signals  appearing  at  the  month. 


6 
During  inspiration  the  gas  composition  signals  reflect  room  air  condi- 
tions. Room  air  contains  oxygen,  nitrogen,  carbon  dioxide,  water  vapor,  and 
a  small  (negligible)  amonnt  of  fixed  gases.  Neglecting  the  volume  of  water 
vapor  (dry  room  air)  the  concentrations  of  oxygen,  carbon  dioxide,  and  nitro- 
gen are  20.93*,  0.04%,  and  78.00%  respectively.  These  concentrations  are 
slightly  diluted  by  the  amount  of  water  vapor  contained  in  room  air. 

Room  air  water  vapor  concentration  is  found  by  observing  the  ambient 
conditions.  If  the  barometric  pressure  is  approximately  one  atmosphere  (760 
torr)  saturated  water  vapor  pressure  is  dependent  only  upon  temperature. 
With  a  typical  ambient  temperature  of  21°C  the  saturated  water  vapor  pressure 
is  18.65  torr.  The  actual  water  vapor  pressure,  Ph^O'  is  f°un^  Dv  multi- 
plying the  saturated  value  by  the  relative  humidity.  The  water  vapor  concen- 
tration, Fn  0,  is  found  by  dividing  the  actual  vapor  pressure  by  the  baro- 
metric pressure.  These  values  under  typical  ambient  conditions  of  21°C 
temperature,  30%  relative  humidity,  and  a  730  torr  barometric  pressure  are 

PH  0  ■  18.65  •  30.0%  =  5.60  torr 
5.60 
H2°     730 

Even  though  the  gas  is  heated  by  the  PTM,   the  water  vapor  concentration   is 
computed  with  the  ambient  temperature. 

The  actual  gas  concentrations  may  be  found  by  multiplying  the  indi- 
vidual dry  concentrations  by  the  factor  100%  -  Fj  „  (refer  to  Appendix  II). 
This  air  passes  through  the  dead  space  and  into  the  alveolar  spaces  (assuming 
the  inspiratory  tidal  volume  is  larger  than  the  dead  space)  where  it  is  mixed 
with  the  alveolar  gas. 

During  expiration,  the  gas  appearing  at  the  mouth  has  been  in  contact 
with  moist  surfaces  of  the  trachea  and  the  alveoli;  therefore,  it  is  assumed 
to  be  saturated.  The  saturated  water  vapor  pressure  is  found  using  the  gas 
temperature  signal  (the  saturated  water  vapor  pressure  is  a  function  of 
temperature  only).  The  water  vapor  concentration  is  found  by  dividing  the 
saturated  water  vapor  pressure  by  the  barometric  pressure. 

Upon  initial  expiration,  the  gas  appearing  at  the  mouth  comes  from  the 
dead  space.  Since,  by  definition,  no  gas  exchange  occurs  with  the  blood  in 
the  dead  space,  the  dead  space  gas  contains  the  same  amounts  of  0-,  CO7'  an<* 
N~   as  room  air.   However,   there  is  a  dilution  of  the  dead  space  gas  with 


7 
water  vapor.    This  dilution  causes  the  step  drop  in  the  02  and  N,  concentra- 
tion signals.    The  Fm   signal  does  not  reflect  this  dilation  because  of  the 
minimal  amount  of  CO 2  present  in  the  upper  portions  of  the  dead  space. 

With  continued  expiration  the  alveolar  gas  arrives  at  the  mouth  causing 
the  drop  in  0~  concentration  and  rise  in  the  C0~  concentration.  The  alveolar 
gas,  due  to  gas  exchange  with  the  venous  blood,  contains  a  higher  concentra- 
tion of  C02  (4*  to  8%)  and  lower  concentration  of  02  (12%  to  17%).  The  02 
and  CO*  concentrations  flatten  out  but  continue  to  change  as  the  alveolar  gas 
arrives  at  the  mouth.  The  slight  continual  changes  are  due  to  the  ongoing 
exchange  of  0.  and  C01  with  the  venous  blood.  Nitrogen  is  not  exchanged 
with  the  blood  so  that  there  is  minimal  variation  in  alveolar  nitrogen 
concentration. 

With  the  onset  of  inspiration  the  gas  composition  immediately  reverts 
to  room  air  conditions. 


2.2  The  Compute r-Based  Respiratory  Measurement  System 

A  system  has  been  developed  by  Creel  [4]  and  modified  by  Riblett  [13] 
which  provides  the  ability  to  monitor  respiratory  signals.  A  rapidly 
responding  temperature  transducer  has  been  added  to  arrive  at  the  present 
system.  The  present  system,  shown  in  Figure  2.2.1,  has  the  ability  to  record 
four  of  the  subject's  respiratory  signals;  respiratory  flow,  dry  fractional 
concentration  of  0-  and  CO2,  and  respiratory  flow  temperature.  The  subject 
is  placed  on  a  bicycle  ergometer.  The  GHS  samples  the  respiratory  gas  and 
produces  an  output  voltage  proportional  to  Fq  and  an  output  voltage  propor- 
tional to  Fqq  .  The  PTG  produces  an  output  voltage  proportional  to  the 
differential  pressure  developed  across  the  screen  of  a  FTM.  This  differ- 
ential pressure  is  related  to  the  flow  through  the  PTM.  A  temperature 
transducer  has  been  designed  (Chapter  III)  to  produce  an  output  voltage 
related  to  the  temperature  of  the  respiratory  flow  gas.  These  voltages  are 
sampled  and  digitized  with  a  Data  Acquisition  Module  (DAM)  [5].  The  digital 
samples  are  collected  with  the  computer  system  (refer  to  Section  AS.l  of 
Appendix  V  for  an  overview  of  the  computer  system) .  The  computer  system  can 
relate  these  samples  to  the  respiratory  signals.  An  ECG  telemetry  system  is 
used  to  monitor  the  subject's  heart  rate  and  record  the  heart  rate  on  the 
termination  of  thirty  second  periods. 
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The  calculated  gas  viscosity  is  used  to  convert  the  digitized  differ- 
ential pressure  signal  to  a  flow  signal.  This  flow  is  converted  to  STPD 
conditions  using  both  the  temperature  signal  and  the  ambient  conditions. 
This  STPD  flow  is  integrated  over  an  inspiration  to  obtain  an  inspiratory 
tidal  volume,  Vj,  and  an  expiration  to  obtain  an  expiratory  tidal  volume,  Vjj. 
These  tidal  volumes  are  then  converted  to  BTPS  conditions.  The  STPD  flow  is 
multiplied  by  the  FCQ  signal  and  the  result  is  similarly  integrated  to 
obtain  the  STPD  volume  of  CO.  inspired  and  the  volume  expired.  The  same 
procedure  is  followed  with  the  Oj  signal  to  obtain  the  volume  of  O2  inspired 
and  02  expired.  Taking  the  difference  of  inspiratory  and  expiratory  0,  and 
C02  volumes  yields  the  STPD  volumes  of  02  consumed,  Vq  ,  and  C02  produced, 
Vqq  ,  during  the  breath.  These  volumes  are  calculated  and  displayed  in 
tabular  form,  one  line  per  breath,  for  every  breath  in  a  selected  time 
window.  The  breath-by-breath  tidal  volumes  (Vj  and  Vc) ,  volume  of  02  consumed 
(Vq) ,  and  volume  of  CO2  produced  (Vqq_)  are  expressed  as  minute  volumes  by 
dividing  by  the  duration  of  the  respiratory  cycle  (in  minutes).  The  indi- 
vidual breath-by-breath  respiratory  quotient,  R,  and  respiratory  frequency 
values  are  also  computed.  The  minute  values,  respiratory  quotient,  and 
respiratory  frequency  are  not  displayed  in  the  tabular  format  but  are 
retained  for  later  display. 

After  every  breath  in  the  window  has  been  analyzed  the  average  values 
for  the  time  window  are  displayed.   These  values  include: 

1.  the  inspiratory  and  expiratory  volumes 

a.  tidal  volume  (LgTp<,/breath.) 

b.  O2  volume  (Lojpn/breath) 

c.  00*  volume  ('.cron/breath) , 

2.  the  volume  of  02  consumed  (LcfTm/breath) , 

3.  the  volume  of  C02  produced  (LSTpn/breath) , 

4.  the  minute  ventilation  values 

a.  inspiratory  ventilation  (Lj,ypc/min) 

b.  expiratory  ventilation  (Lnypc/min) 

c.  02  consumption  (L^jp^/min) 

d.  C02  production  (Lg^p/min) , 

5.  the  respiratory  quotient,  and 

6.  the  respiratory  frequency  (breaths/min) . 

The  average  minute  values  are  found  by  dividing  their  respective  total  volume 
for   the  window  by  the  total  respiratory   time.    The   average   respiratory 
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quotient,  R,  is  found  by  dividing  the  total  volume  of  CO,  produced  by  the 
total  volume  of  Oj  consumed.  The  average  respiratory  frequency  is  equal  to 
the  total  number  of  breaths  analyzed  divided  by  the  total  respiratory  time. 

SUBJECT  IDENTIFIER:   Subject  A 

DATE:      NOV/02/1984 

COMMENT:    125  Watt  Exercise;  Steady  State 

Summary  data  and  average  values 

Data  Point  Time  (sec) 
Beginning  analysis  point:  11250         284.98 
The  first  inspiration:     11272         285.42 
The  last  inspiration:      15553         371.04 
Ending  analysis  point:     15750         374.98 

Inspiratory  minute  volume  =  -56.2  liters  per  minute  BTPS 
Expiratory  minute  volume  =   52.6  liters  per  minute  BTPS 
02  consumed  per  minute  =  -2.430  liters  per  minute  STPD 
C02  produced  per  minute  =   1.895  liters  per  minute  STPD 
RESPIRATORY  QUOTIENT      .780 

Inspiratory  tidal  volume  =   -2.2183  liters  BTPS 

Expiratory  tidal  volume  =   2.0749  liters  BTPS 

Respiratory  frequency  •   25.3  breaths  per  minute 

Mean  02  inspired  =   -.372  liters  STPD 

Mean  02  expired  ■     .276  liters  STPD 

Mean  C02  inspired  =   -.002  liters  STPD 

Mean  C02  expired  ■     .077  liters  STPD 

Mean  02  consumed  per  breath  =   -.096  liters  STPD 

Mean  C02  produced  per  breath  =    .075  liters  STPD 

Total  time  of  inspiration  =   38.7  sec 

Total  time  of  expiration  =   48.9  sec 

Total  time  of  respiration  =   87.6  sec 

Number  of  good  inspirations  =   37.0 

Number  of  good  expirations  =   37.0 

Number  of  good  breaths  ■   37.0 

Figure  2.2.2   Example  of  average  data  obtained  from  125  watts  of  steady-state 
exercise. 

Shown  in  Figure  2.2.2  is  an  example  of  the  average  output.   The  experi- 
mental protocol  covers  an  eleven  minute  (660  seconds)  period.    Collection  of 
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the  respiratory  data  begins  at  the  60  second  mark.  Eight  minutes  (480 
seconds)  of  respiratory  data  is  collected  from  the  subject.  The  subject 
begins  exercise  at  the  100  second  mark  (40  seconds  after  data  collection 
begins)  and  exercises  for  320  seconds  (to  the  420  second  mark).  Shown  in 
Figure  2.2.2  are  the  average  results  from  90  seconds  of  steady-state,  125 
watt  exercise  (from  the  285  second  mark  to  375  second  mark).  Also  included 
in  the  average  output,  but  not  shown  in  Figure  2.2.2  are  the  calibration  data 
and  ambient  conditions. 

Display  of  the  breath-by-breath  values  is  possible  after  the  tabular 
and  average  results  have  been  printed.  The  individual  breath-by-breath 
values  may  be  displayed  or  averages  of  small  groups  of  the  breath-by-breath 
values  may  be  displayed.   The  groups  may  be  averaged  in  one  of  two  ways: 

(1)  the  average  of  successive  breath-by-breath  values  -  the  various 
breath-by-breath  values  are  averaged  over  a  specified  number  of 
breaths. 

(2)  window  averaging  -  to  understand  this  technique  refer  to  Figure 
2.2.3.  Shown  in  the  top  display  are  the  individual  breath-by-breath 
values  and  shown  in  the  bottom  display  are  the  windowed  combinations. 
A  window  of  width  r  is  centered  about  the  time  t.  The  average  of 
all  breaths  occurring  in  the  window  corresponds  to  the  window 
averaged  value  at  the  time  tj.  The  center  of  the  window  is  then  slid 
in  time  to  tj+*  to  obtain  the  windowed  average  for  the  time  &i+l« 
The  center  of  the  window  is  then  then  slid  to  t^+2  and  averaged,  etc. 
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Figure  2.2.3   An  illustration  of  the  window  breath  averaging  technique. 


The  average  minute  values  are  obtained  by  averaging  the  individual 
breath-by-breath  minute  values,  causing  some  error.  Considering  three 
breaths,  the  true  minute  ventilation  is  obtained  by  dividing  the  total  volume 
involved  in  the  three  breaths  by  the  total  time  of  the  three  breaths.  That  is 


Average 


Vl  +  V2  +  V3 


On   the  other  hand.   averaging  the  three  breath-by-breath  values  is  done  by 
Average  =  (1/3)  [Vj/Tj  +  V2/T2  +  V3/T3] 

The  error  however  is  small  if  the  duration  of  the  various  respiratory   cycles 
are  nearly  equal  so  that 


Average  -  (1/3T)  [  Vx  +  V2  +  V3] 
This  same  type  of  error  is  possible  with  the  respiratory  quotient  average  and 
respiratory  frequency  average. 
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The  averaging  techniques  may  be  used  to  display  the  respiratory  data 
either  graphically  or  in  a  tabular  format.  This  graphical  feature  allows 
quick  recognition  of  transient  responses  while  the  tabular  output  allows  the 
more  detailed  analysis.  The  graphical  output  is  similar  to  Figure  2.2.3 
which  shows  Vqq  for  a  175  Watt  exercise  regimen  (the  175  Watt  exercise 
regimen  was  terminated  at  the  360  second  mark  rather  then  the  420  second 
mark) . 

Shown  in  Figure  2.2.4  is  an  example  of  the  tabular  output.  This  output 
uses  the  window  averaging  technique  with  a  90  second  wide  window.  The  window 
is  slid  along  with  a  periodicity  of  30  seconds.  The  window  centered  about 
330  seconds  averages  the  same  breaths  that  is  included  in  the  analyzed  window 
of  Figure  2.2.1.  Note  that  the  average  minute  values  for  the  330  second 
window  are  nearly  equal    to   the   average   values   obtained    in  Figure   2.2.1. 

This  points  out  one  of  the  advantages  of  this  display  method.  Steady- 
state  average  values  may  be  obtained  quickly  and  easily  by  analyzing  the 
entire  run  and  selecting  windows  of  a  wide  width.  Previously  each  individual 
window  would  have  to  be  analyzed  and  the  average  values  obtained.  This 
requires    a    great   deal    more    of    the   operator's   time. 

Although  not  fully  explored  with  the  present  system,  the  windowing 
feature  is  a  powerful  tool.  By  defining  a  standard  window  width  and  a 
standard  window  period,  a  set  of  points  [average  value,  time]  from  one  set  of 
data  has  the  same  set  of  time  values  as  another  set  of  data.  So  that,  for  a 
given  exercise  regimen  comparison  of  a  subject's  day-to-day  variations  or 
comparison  of  different  subjects'  responses  can  be  made.  Also,  with  a  large 
population  of  normal  subjects,  an  average  response  and  corresponding  standard 
deviation  to  a  particular  regimen  may  be  defined  (refer  to  system  improve- 
ments). One  problem  of  using  the  windowing  averaging  to  accomplish  this  is 
the  variation  of  respiratory  frequency  between  exercise  levels  and  between 
subjects.  This  variation  alters  the  number  of  breaths  averaged  per  window 
and  therefore,  alters  the  statistical  significance  of  each  subject's  averaged 
value   for   the   standard  window. 
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Chapter  III.    DESIGN  OF  A  RAPIDLY  RESPONDING  TEMPERATURE  TRANSDUCER 

Dependency  of  respiratory  breath-by-breath  volumes  derived  from  a  PTG 
signal  on  respiratory  flow  temperature  has  been  recognized  by  several 
researchers  [4,13,17,18,19].  Creel  [4]  pointed  out  the  need  for  monitoring 
respiratory  temperature  so  that  volumes  computed  under  various  conditions 
could  be  converted  to  standard  conditions,  either  STPD  conditions  or  BTPS 
conditions.  In  addition,  the  gas  viscosity,  used  in  calculating  the  flow 
from  the  PTG  differential  pressure,  is  dependent  on  the  respiratory  gas 
temperature. 

In  order  to  facilitate  compensation  of  temperature  variations 
throughout  the  respiratory  cycle,  a  temperature  transducer  for  monitoring 
respiratory  flow  temperature  near  the  flow  sensing  sight  will  be  designed  and 
integrated  into  the  CBRHS.   The  temperature  transducer  must 

1.  have   a  probe  which  can  be  conveniently  placed  in  the  respiratory   flow 
stream  and  has  a  minimal  effect  on  the  respiratory  flow, 

2.  have   a  rapid  thermal  time  constant  so  that  the  respiratory  flow   temp- 
erature may  be  faithfully  monitored, 

3.  have  an  output  voltage  compatible  with  the  input  range  of  the  DAM, 

4.  be   able  to  measure  and  have  maximum  sensitivity  to  temperatures  in  the 
respiratory  range  (20°C  to  40°C) , 

5.  have  a  simple  calibration  procedure,  and 

6.  be   stable  to  avoid  frequent  re-calibration. 

Both  thermocouples  and  thermistors  are  available  in  a  size  small  enough 
so  that  when  inserted  into  the  respiratory  flow  stream  each  would  have  little 
effect  on  the  flow.  Thermocouples,  however,  are  available  with  a  response 
time  (time  required  for  the  sensor  to  reach  63.2%  of  a  step  change  in 
temperature)  as  low  as  3  ms  while  the  fastest  thermistors,  due  to  their 
larger  mass,  have  thermal  time  constants  in  the  500  ms  range.  For  the 
faster  response  time  the  thermocouple  is  selected  as  the  sensing  element  of 
the  temperature  transducer. 

A  type  E  (chromel-constantan) ,  bead  welded,  thermocouple  having  a 
diameter  of  0.001  inch  is  selected.  The  response  time  of  this  thermocouple 
is  4.5  ms.  In  addition,  among  the  commonly  available  thermocouples  the 
voltage-temperature  relationship  of  the  type  E  thermocouple  is  the  most 
linear   and  has   the  highest  degree  of  sensitivity  (change   in   thermocouple 


voltage  per  change  in  temperature)  over  the  respiratory  temperature  range. 
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A  respiratory  temperature  transducer  was  designed  such  that  goals  three 
thru  six  are  realized.  For  a  tutorial  on  thermocouple  principles  refer  to 
Appendix  IV. 

3 .1   Transducer  Design 

A  block  diagram  of  the  temperature  transducer  is  shown  in  Figure  3.1.1 
and  the  actual  electronics  are  shown  in  Figure  3.1.2.  The  type  E  thermo- 
couple is  connected  to  lead  wires  with  the  connection  being  made  in  an 
isothermal  body.  The  isothermal  body  is  made  of  molded  fiberglass  which  also 
contains  the  reference  junction  temperature  sensor.  The  lead  wires  are 
connected  to  a  pre-amplif ier  which  amplifies  the  thermocouple  differential 
voltage. 


Current  to 
Voltage  Converter 


V=K1K2VTC(Tref.O) 


1 


Figure  3.1.1   The  block  diagram  of  the  temperature  transducer. 

The   differential   output  of  the  pre-amplif ier  is  connected   to   a 
differential  amplifier,  resulting  in  a  ground  referenced  output  voltage  of 


t-Wic<tj'W 
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la) 


q*>\^n™£hr 


(b) 
Figure  3.1.2   (a)  The  temperature  transducer.   (b)  The  power  supply 


Hardware   compensation   is  used  to  account  for  the   non-ice   point   reference 
junction  temperature.   The  compensator  output  is  given  by 

Vcomp<Tref>  =  Kl  K2  V<Tref°> 
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The  outputs  of  the  differential  amplifier  and  the  compensator  are  summed  so 
that  the  transducer  output  voltage  is 

Vo<Tj.Tref)  =  ^2[yTC(TyTTet)    +  VCTref.0>]  3.1.1 

which  reduces  to 

Vo<Tj'Tref>  =  Ki^^T^O)  3.1.2 

The  transducer  output  voltage  is  sampled  by  the  computer  system.  The  comp- 
uter system  can  determine  the  temperature  T,  using  the  appropriate  calibra- 
tion factors. 

The  transducer  consists  of  three  physical  sections,  the  thermocouple 
probe,  the  pre-amplif ier,  and  a  TM  plug-in  module.  The  TM  plug-in  module  is 
a  blank  bread  board  for  constructing  custom  circuitry  to  be  used  with  the 
Tektronix  TM500  Power  Module  Series.  The  AD521,  reference  junction  compensa- 
tor (excluding  the  sensing  element),  the  power  supply,  and  8NC  connectors  are 
placed  in  the  module.  The  TM  plug-in  module  is  used  in  order  to  remain 
compatible  with  many  of  the  other  instruments  in  the  Bioengineering  Research 
Laboratory. 

The  pre-amplif ier,  a  configuration  identical  to  the  input  stage  of  a 
three-operational  amplifier  instrumentation  amplifier,  is  constructed  with 
two  Analog  Devices  AD  OP-07  operational  amplifiers.  The  AD  OP-07  is  chosen 
for  its  minimal  offset  voltage,  minimal  bias  current  temperature  drifts,  and 
its  low  noise.  The  pre-amplif ier' s  configuration  provides  high  input  imped- 
ance, high  CMRR  (Common  Mode  Rejection  Ratio),  and;  due  to  its  symmetry; 
reduces  the  errors  caused  by  the  input  bias  currents  and  temperature  drifts 
of  the  bias  currents  and  offset  voltages.  The  resistors  connected  to  the 
input  terminals  of  the  pre-ampl if ier  provide  a  path  to  ground  for  the  input 
bias  currents  of  the  two  operational  amplifiers. 

The  voltage  across  the  resistor  R  ,  assuming  an  ideal  operational 
amplifier  and  neglecting  the  thermocouple  and  lead  resistances,  is  equal  to 
the  thermocouple  voltage,  1L,  This  voltage  causes  a  current  to  flow  through 
Rc  which  is  equal  to  Vj^(T- '^tef) /Rc.  This  current  also  passes  through  the 
feedback  impedances.  Writing  a  KVL  equation,  the  differential  output  of  the 
pre-amplif ier  is 

V°pre-amp  =  tyTC«j'WV*f  +  <VTC<Tj.Tref  )/Rc)Rc  ♦  (VTC(Tj  ,Tref ) /Rc)Rf 
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which   simplifies   to 

Ve-a»P     =    U   +  2Rf/Rc>VTc(Tj.Tref)    =  hV^Tj.t^) 
where  K^    is    the   pre-amplif ier   gain   and  is   given  by 

Ki  =  i  -  2Rf/Rc 

The  output  of  the  pre-amplif ier  is  used  as  the  input  to  an 
Analog  Device's  AD521  precision  instrumentation  amplifier.  The  AD521  is  a 
true  differential  amplifier  whose  gain,  in  this  configuration,  is  set  by  two 
resistors,  Rg  and  R  .  The  AD521  also  has  an  external  voltage  reference  which 
is  used  to  perform  the  voltage  summing  operation  illustrated  in  the  block 
diagram.   The  output  of  the  AD521  is  given  by 

V0  =  Vi(Rs/Rg)  ♦  V„f 

The  output  of  the  pre-amplif ier  is  used  as  the  input  to  the  AD521  and  the 
compensator  output  is  connected  to  the  voltage  reference  terminal.  In  this 
application  the  output  of  the  AD521  is  a  function  of  T.  and  T  f, 

VTj'Tref>  "  KlK2VTC<Tj-Tref>  +  Vco>»p<Tref> 

There 

Kx  =  1  +  2Rf/Rc 

K2  =   Rs/Rg 

The  reference  junction  compensator  is  based  on  an  AD590  two-terminal 
integrated  circuit  temperature  transducer,  which  produces  an  output  current 
proportional  to  absolute  temperature.  A  current  device  is  selected  to 
eliminate  the  compensator  sensitivity  to  voltage  drops  over  a  long  lead  wire. 
The  reference  junction  is  embedded  in  fiberglass  to  provide  an  isothermal 
block.  The  AD590  is  embedded  in  the  fiberglass  in  order  to  sense  the  temp- 
erature of  this  isothermal  block.  The  current  output  of  the  AD590  transducer 
as  a  function  of  temperature  is 

I(T)  =  (T  +  273.2)  uA/°K        -55°C  <  T  <  150°C 

where 

T  =  sensor  temperature  (°C) 

This  sensor  is  connected  to  a  the  compensator  op-amp.  This  op-amp  is  an  AD 
OP-07  amplifier  connected  to  be  summing  amplifier.  The  output  of  the  summing 
amplifier  is  a  linear  function  of  the  reference  junction  temperature.  The 
compensator  output  is  given  by 
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Vcomp<Tref>  "  tI(Tref>  "  V«r>T 

Since  the  thermocouple  has  a  nonlinear  voltage-temperature  relationship 
some  error  is  created  with  a  linear  compensation  scheme.  However,  if  the 
reference  junction  temperature  varies  only  over  a  small  range  a  linear 
compensation  scheme  performs  satisfactorily,  since  over  small  temperature 
variations  the  type  E  thermocouple  is  very  linear. 

In  summary,  the  output  of  the  temperature  transducer  with  a  sensing 
temperature  of  T.  and  reference  junction  temperature  of  Tre£  is 

V0(Tj,Tref)  =  lATKttj.I,,,)  +  Voonp(Tref)  3.1.3 

where  the  gain  constants  fc^  (pre-amp)  and  K2  (AD521)  are 

Kx  =  1  +  2Rf/Rc 
K2  "   VRg 
The  output  voltage  of  the  compensation  circuit  is 

Vco»p<Tref>  =  [*<W  "  V*r>T  3'1A 

where 

KTtef)  =  (Tref  +  273.2)  uA/°K 

A  scheme  for  the  determination  of  component  values  will  now  be  presented. 


with  the  reference  junction  temperature  fluctuating  about  the  average  ambient 
temperature.  The  transducer  provides  an  output  voltage  in  the  range  Vmin  to 
V___j  corresponding  to  Tmin  and  T  respectively.  The  voltage  range  Vmjn  to 
V  must  be  compatible  with  the  input  of  the  Data  Acquisition  Module  (DAM). 
With  the  temperature  range,  corresponding  voltage  range,  and  with  the  refer- 
ence junction  temperature  equal  to  the  average  ambient  temperature  (T  fc) , 
Equation  3.1.3  yields  these  two  equations: 

Vmin  "  VTmin-Tamb'  "  KlK2vTC(Tmin'Tamb)  +  vcomp(Tamb) 
Vmax  =  Vo(Tmax'Tamb)  =  KlK2vTC(Tm«x'Tamb)  +  vcomp(Tamb' • 

These  two  equations  allow  for  the  determination  of  the  two  unknown  values, 
the  total  gain  (K»K~)  and  ambient  compensation  voltage.  The  total  gain  is 
found  by  taking  the  difference  of  these  two  equations  and  solving  for  the 
product  KjK7 

V  (T  T    >  —  V  (T     T    ) 

^  r     _    o   max'  amb'     ov  min'  amb'  3  15 
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By  substituting  this  gain  value  into  one  of  the  two  equations  the  necessary 
compensation  voltage  with  the  reference  junction  at  ambient  temperature  is 
found. 

Vcomp<Tamb>  =  Vmin  -  KiK2VTC<Tmin.Ta„,b>  3.1.6 

The  gain  is  developed  with  the  resistors  Rf,  Rc,  Rs,  and  R.  such  that 
KXK2  =  (1  +  2Rf/Rc)(Rs/Rg) 

Most  of  the  gain  should  come  from  the  pre-amplif ier  stage  in  order  to  max- 
imize the  signal-to-noise  ratio  at  the  ontpnt  [71.  Realizable  values  of  R. 
and  Rc  are  selected  to  obtain  the  desired  K^  gain.  The  value  of  Rs  is 
limited  to  be  lOOk.Q  +  15*  by  the  AD521's  specifications.  The  value  of  R 
necessary  to  yield  the  gain  K1K2  is  calculated  and  accomplished  by  a  fixed 
resistor  in  series  with  a  lOkft  potentiometer. 

The  components  of  the  compensation  amplifier  (V  ,  Rr,  and  Ry)  are  found 
by  considering  Equation  3.1.6  and  the  goal  of  the  compensation  amplifier  to 
have  the  same  voltage-temperature  relationship  as  the  amplified  thermocouple 
voltage.  If  a  similar  relationship  is  obtained  the  transducer  output  will 
not  change  with  small  variations  of  the  reference  junction  temperature  from 
the  average  ambient  temperature  (provided  the  sensing  junction  temperature  is 
constant).   This  goal  expressed  mathematically  is 


dV 


0(TjfTref)/dTref  =  0  =  ^2[dVTC(TyTtet)/iTzet]   *  dV00np(Tref )  /dT„f 


T:    =   constant 


so    that 

dVcomp(Tref'/^ref  =  "  *A[«TC<Tj  'Tref  >  /dTref  ] 

=  -  K1K2[dVTC(Tj.0)/dTr<(f  -  dVTC(Tref0)/dTre£] 

=  V2dv-TC<Tref°>/dTref 

Taking  the  derivative  of  V0Q  in  Equation  3.1.4  with  respect  to  reference 
junction  temperature  and  equating  the  result  to  the  above  derivative  of  the 
compensation  voltage  yields 

dVcomp<Tref»/dTref=  dO"6)^  -  ^^"w^r.f  '0)  /dTref 
so  that  the  value,  in  MQ,  of  the  resistor  IU.  is 
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Rt=  K1K2[dVTC(T„f.0)/dTref]   m  3.1.7 

Trej  =  Tamb,  the  average  ambient  temperature 

The  derivative   of  the  thermocouple  voltage  is  found  from  the   second  order 

fit  developed  in  Appendix  IV  (Equation  A4.1). 

dVTC(T,0)/dT  =  2VaT  +  Vfe 

V,  =  45.85(10r§  (mV/(°C)2) 
Vj  =  58.65(10)~3  (mV/6C) 

Once  the  value  of  Rj.  is  determined,  the  ratio  Vr/Rr  is  found  from  the  ambient 
compensation  voltage.  Equation  3.1.6,  such  that 

Vr/Rr  =  (Tamb  +  273.2) (10"6)  -  Vcomp(Tanb) /RT        3.1.8 

A  commercially  available  precision  reference  voltage  is  selected,  having  the 
same  sign  as  the  result  of  Equation  3.1.8.  Using  this  value  for  V  the 
resistance  Rr  is  calculated. 

The  bypass  capacitors  (C^.Cj.)  are  selected  to  give  the  appropriate  high 
cutoff  frequencies.  The  temperature  signals  do  not  contain  significant 
components  beyond  60  Hz.  Since  the  reference  junction  temperature  varies 
very  slowly  a  cutoff  frequency  of  2  Hz  is  selected  for  the  compensator.  The 
capacitors  are  then 


2n(60)Rf  *    2n(2)RT 

A  program,      TXDCR_VALS  Appendix  XI,      Section  A6.9,      has   been  written  to 

help     determine      the      transducer      component   values   for      a      given      temperature 

measurement   range,    output  voltage    range,    and   the   average    ambient    temperature. 

The      program   calculates   the   necessary  component  values.        The   program     prints 

the    ideal    transducer   output  voltages   for    the   range   T    .    -  5°C  to  T_„+  5°C     in 

mm         max 

0.1°C  increments.    The  compensator  output  voltages  for  the  range  Tambient~ 
5  C  to  ^ambient+  15°*-  in  0.1°  increments  are  also  printed. 

The  temperature  transducer  used  in  the  present  CBRMS  monitors  the 
respiratory  temperature  range,  20°C  to  40°C.  The  output  voltage  range  is 
-3.SV  to  3.5V,  -3.5V  corresponding  to  20°C  and  an  output  of  3.5V  corre- 
sponding to  40°C.  The  average  ambient  temperature  in  the  Bioengineering 
Research  Laboratory  is  70°F,  21.1°C, .  The  component  values  and  output 
voltages  are  determined  with  TXDCR_VALS.  The  output  of  TXDCR_VALS  is  shown 
in  Figure  3.1.3. 

A  187Q  resistor  is  selected  for  R  and  a  348kfl  resistor  selected  for 


R, 
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This      combination  provides  high  gain  in  the   pre-amplif ier      stage.        The 


total    gain  necessary   for   the    transducer   and   the   pre-amplif ier   gain  are 


To 


tal  Gain  (KjKj)  =  5700.2 


3722.9 


so  that  K^  =  1.5311.  Use  of  a  95k!l  resistor  for  Rs  and  the  mentioned  Rc  and 
Rj  resistor  values  require  a  62.05kQ  resistor  for  R  .  The  value  of  R„ 
consists  of  a  58kQ  fixed  resistor  in  series  with  a  lOkfi  potentiometer. 

The  required  value  for  Rg  is  345.3kfl.    Using  an  Analog  Device's   AD580 
2.50V  voltage  reference  voltage  for  Vr  requires  the  value  of  Rr  to  be  8.24kQ. 
RT   consists  of  a  317k!!  fixed  resistor  in  series  with  a  lOOkQ  potentiometer  and 
Rr  consists  of  a  7.68kQ  resistor  in  series  with  a  lOkQ  potentiometer. 

The   reference  junction  temperature  corresponding  to  V„„_„(T  _f)   =  0, 

c  uni  p   rci 

Tq,  is  30.14°C.  With  the  reference  junction  temperature  equal  to  Tq  the 
compensator  output  is  independent  of  the  R-,  resistor.  This  point  is 
important  in  the  calibration  of  the  compensator  circuitry  since  R  can  be 
adjusted  to  yield  V     =  0  independent  of  R^.. 
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Figure  3.1.3  The  output  of  the  TXDCR_VALS  program.  The  program  yields  the 
necessary  component  values  of  the  temperature  transducer  and 
the  ideal  output  voltages  of  the  transducer  and  compensator 
verse    temperature. 


TEMPERATURE  RANGE:      20.00  TO     40.00 

Vo(20,0)    =  -3.5 
Vo(40,0)    =  3.5 
Tambient  =  21.1 

TOTAL  GAIN  =        5700.23 

Kl  =  3722.92513369 

K2  =   1.53111671348 
Re  =      1.870E+02        Rf  -     3 .480E+05 
Rs  =     9.500E+04        Rg  =     6.205E+04 

VOLTAGE  REFERENCE  =        2.5000 

Rr  =      8.242E+03  Rt  =      3.453E+05 

Tref(Vcomp=0)    =     30.14 


****  The  output  voltage  of  the  reference  junction  compensator. 


.0 

.1 

.2 

.3 

.4 

16 

-4.882 

-4.847 

-4.813 

-4.778 

-4.744 

17 

-4.536 

-4.502 

-4.467 

-4.433 

-4.398 

18 

-4.191 

-4.156 

-4.122 

-4.087 

-4.053 

19 

-3.846 

-3.811 

-3.777 

-3.742 

-3.708 

20 

-3.500 

-3.466 

-3.431 

-3.397 

-3.362 

21 

-3.155 

-3.120 

-3.086 

-3.051 

-3.017 

22 

-2.810 

-2.775 

-2.741 

-2.706 

-2.671 

23 

-2.464 

-2.430 

-2.395 

-2.361 

-2.326 

.5 

.6 
-4.674 

.7 

.8 

.9 

-4.571 

4.709 

-4.640 

-4.605 

4.364 

-4.329 

-4.295 

-4.260 

-4.226 

4.018 

-3.984 

-3.949 

-3.915 

-3.880 

3.673 

-3.638 

-3.604 

-3.569 

-3.535 

3.328 

-3.293 

-3.259 

-3.224 

-3.190 

2.982 

-2.948 

-2.913 

-2.879 

-2.844 

2.637 

-2.602 

-2.568 

-2.533 

-2.499 

2.292 

-2.257 

-2.223 

-2.188 

-2.153 

35 1  1.6801  1.7141  1.7491  1.7841  1.8181  1.853 1  1.8871  1.9221  1.9561  1.991 1 

36 1  2.0251  2.0601  2.0941  2.1291  2.1631  2.1981  2.2321  2.2671  2.3021  2.3361 


•*•*  The  respiratory  temperature  transducer  output  voltage.   *•*• 


15- 
16- 
17- 
18- 
19- 
20- 
21- 
22- 


.0 

.1 

.2 

.3 

.4 

.5 

.6 

.7 

.8 

.9 

-5.217 

-5.183 

-5.149 

-5.115 

-5.080 

-5.046 

-5.012 

-4.978 

-4.943 

-4.909 

-4.875 

-4.841 

-4.806 

-4.772 

-4.738 

-4.704 

-4.669 

-4.635 

-4.601 

-4.566 

-4.532 

-4.498 

-4.463 

-4.429 

-4.395 

-4.360 

-4.326 

-4.292 

-4.257 

-4.223 

-4.189 

-4.154 

-4.120 

-4.085 

-4.051 

-4.017 

-3.982 

-3.948 

-3.913 

-3.879 

-3.845 

-3.810 

-3.776 

-3.741 

-3.707 

-3.672 

-3.638 

-3.603 

-3.569 

-3.534 

-3.500 

-3.466 

-3.431 

-3.397 

-3.362 

-3.328 

-3.293 

-3.259 

-3.224 

-3.189 

-3.155 

-3.120 

-3.086 

-3.051 

-3.017 

-2.982 

-2.948 

-2.913 

-2.879 

-2.844 

-2.809 

-2.775 

-2.740 

-2.706 

-2.671 

-2.636 

-2.602 

-2.567 

-2.533 

-2.498 

29- 
30- 
31- 


-.376 

-.341 

-.306 

-.271 

-.236 

-.201 

-.166 

-.131 

-.096 

-.061 

-.026 

.009 

.044 

.079 

.114 

.149 

.184 

.219 

.254 

.289 

.324 

.359 

.394 

.429 

.464 

.499 

.535 

.570 

.605 

.640 

42- 
43- 
44- 
45- 


4.211 

4.247 

4.283 

4.318 

4.354 

4.390 

4.425 

4.461 

4.497 

4.532 

4.568 

4.604 

4.639 

4.675 

4.711 

4.746 

4.782 

4.818 

4.854 

4.889 

4.925 

4.961 

4.997 

5.032 

5.068 

5.104 

5.140 

5.175 

5.211 

5.247 

5.283 

5. •SIS 

5.354 

5.390 

5.426 

5.462 

5.497 

5.533 

5.569 

5.605 
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3.2  Calibration  of  the  Temperature  Transducer 

Calibration  of  the  temperature  transducer  involves  two  steps.  First, 
the  calibration  of  the  reference  junction  compensation  circuitry  and 
secondly.  the  calibration  of  the  thermocouple  amplifier.  The  compensation 
circuitry  must  be  calibrated  first  so  that  the  correct  voltage  is  being  added 
to  the  amplified  thermocouple  voltage  to  obtain  the  transducer  output. 

The  compensation  circuit  produces  a  voltage  that  is  a  linear  function 
of  the  reference  junction  temperature,  given  by  Equation  3.1.4  (repeated 
here) 


Vcomp<Tref>  "  [«W  "  V*r]»T-  3.1.4 


By  the  adjustment  of  feedback  potentiometer  (the  potentiometer  in  the  feed- 
back path)  and  the  reference  potentiometer  (the  potentiometer  in  series  with 
K  )  the  correct  linear  relationship  can  be  generated.  By  creating  a  refer- 
ence junction  temperature  corresponding  to  the  V„rt_(  I"  *)=(),   the  reference 

comp   rex 

potentiometer  can  be  adjusted  independent  of  the  feedback  resistance,  since 

0  =  [l(T0)  -  VRj&r 
Tq  -  temperature  corresponding  to  Vc0   (Tref)  =  0 

so  that  Rj  may  be  divided  out.  This  adjustment  also  cancels  the  constant 
operational  amplifier  errors,  offset  voltage  and  bias  current  errors,  the 
base-line  error  of  AD590  temperature  sensor,  and  the  deviation  of  the  voltage 
reference  from  its  specified  value. 

The  slope  of  the  output  voltage-reference  junction  temperature  rela- 
tionship is  controlled  by  the  feedback  resistor.  After  the  zero  voltage 
adjustment  is  made  the  reference  junction  temperature  is  changed  to  near 
ambient  temperature.  This  temperature  is  measured  and  the  corresponding 
ideal  output  voltage  found.  The  feedback  potentiometer  is  adjusted  to  obtain 
this  correct  output. 

After  the  compensator  has  been  calibrated,  the  thermocouple  amplifier 
is  calibrated.  By  applying  a  known  sensing  junction  temperature  to  the 
thermocouple,  the  AD521  gain  potentiometer  which  is  the  potentiometer  in 
series  with  R  ,  is  adjusted  to  obtain  the  correct  output  voltage.  The 
reference  junction  should  be  maintained  near  the  average  room  temperature 
during  this  adjustment. 
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Next   is   a  step-by-step  procedure  for  calibration  of   the   temperature 
transducer.    The  necessary  equipment  for  calibration  of  the  thermocouple  are 
listed  here: 

1.  The  three  water  baths  used  in  the  system  calibration  procedure.   Figure 

5.1.1.    One  water  bath  should  be  equal  to  ambient   temperature,   one 

having   a  temperature  slightly  higher  than  Tq,   and  the  other  equal   to 

T 
max 

2.  The  Tektronix  Module  extension  cable.  The  temperature  transducer 
should  be  connected  to  this  extension  cable  so  that  the  calibration 
potentiometers  are  available  for  adjustment. 

3.  A  calibrated  thermometer. 

4 .  A  voltmeter. 

5.  A  small  screwdriver  or  potentiometer  screwdriver. 

Junction  temperature  compensation  amplifier. 

1.  Connect  the  voltmeter  to  the  BNC  connector  labeled  VT -  located  on  the 
front  panel  of  the  temperature  transducer. 

2.  Adjustment  of  the  output  voltage  to  zero  for  a  reference  junction 
temperature  of  T«, 

a)  Submerge  the  entire  thermocouple  assembly  into  the  water  bath 
having  the  temperature  slightly  higher  than  T„ .  Allow  enough  time 
for  the  thermocouple  assembly  to  be  in  temperature  equilibrium  with 
the  water  bath.  Check  to  make  certain  the  bath  temperature  is 
slightly  above  TQ.  If  the  bath  temperature  is  not  above  TQ,  the 
bath  temperature  must  be  raised. 

b)  Allow  the  bath  temperature  to  drift  down  to  TQ  while  stirring  the 
bath  occasionally  in  order  to  maintain  a  uniform  bath  temperature. 

c)  Adjust  the  reference  resistor,  Rr,  so  that  the  output  of  the 
reference  junction  compensator  is  zero  volts. 

3.  Adjustment  of  the  temperature  sensitivity  of  the  reference  junction 
compensator. 

a)  Submerge  the  entire  thermocouple  assembly  into  the  water  bath 
having  a  temperature  equal  to  room  temperature.    Allow  enough  time 
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for  the  assembly  to  reach  temperature  equilibrium  with  the  water 
bath. 

b)  Adjust  R^.  to  obtain  the  correct  output  voltage  of  the  reference 
junction  compensator  for  the  bath  temperature. 

c)  Remove  the  thermocouple  assembly  from  the  water  bath. 

Thermocouple  amplifier  adjustments. 

1.  Offset  null  adjustment  of  the  thermocouple  pre-amplif ier. 

a)  Connect  the  voltmeter  to  the  differential  output  of  the  pre- 
amplifier circuit  using  the  banana  plug  jacks  located  on  the  pre- 
amplifier unit. 

b)  Depress  the  input  shorting  button  of  the  pre-amplif ier  and  adjust 
the  offset  null  potentiometer  of  the  pre-amplif ier  to  obtain  a 
differential  output  of  zero  volts. 

2.  Offset  null  adjustment  of  the  differential  amplifier. 

a)  Connect  a  voltmeter  to  the  BNC  connector  labeled  V  *  located  on 
the  temperature  transducer. 

b)  Ground  the  AD521's  reference  voltage  terminal,  which  removes  the 
compensation  voltage,  by  flipping  the  switch  on  the  front  panel  of 
the  transducer. 

c)  Depress  the  input  shorting  button  on  the  thermocouple  pre- 
amplifier. 

d)  Adjust  the  offset  null  of  the  ADS21  to  obtain  a  transducer  output 
of  zero  volts. 

3.  Gain  adjustment  of  the  thermocouple  amplifier. 

a)  Leave  the  voltmeter  connected  to  the  output  of  the  temperature 
transducer. 

b)  Apply  the  compensation  voltage  to  the  reference  terminal  of  the 
AD521. 

c)  Insert  the  sensing  junction  of  the  thermocouple  into  a  well  mixed 
water  bath  having  a  temperature  in  the  upper  end  of  the  measurement 
range. 
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d)   Adjust  R   to  obtain  the  correct  output  voltage  for  the   temperature 
of  the  water  bath. 


3.3   Temperature  Transducer  Testing 

The  temperature  transducer  is  essentially  two  temperature  transducers 
in  one.  The  first  uses  the  thermocouple  to  sense  the  difference  between  the 
sensing  junction  temperature  and  the  reference  junction  temperature.  The 
second,  the  compensator,  senses  the  reference  junction  temperature.  The 
operation  of  the  total  transducer  is  dependent  upon  the  correct  operation  of 
both  of  these  separate  transducers.  In  order  for  the  output  to  be  related  to 
the  sensing  junction  temperature  the  compensator  must  provide  the  correct 
voltage  to  be  added.  For  these  reasons  the  testing  of  the  transducer  is 
divided  into  two  sections,  the  testing  of  the  compensation  circuitry  and  the 
testing  of  the  overall  transducer. 

The  temperature-output  voltage  relationship  of  the  compensation  cir- 
cuitry was  first  tested.  To  do  so  the  thermocouple  probe  assembly  was  sub- 
merged in  a  water  bath  and  allowed  to  reach  temperature  equilibrium  with  the 
water  bath.  The  bath  temperature  and  the  output  voltage  of  the  compensator 
were  measured  and  recorded.  A  thermometer  accurate  to  within  0.1°C  was  used 
to  measure  the  water  bath  temperature.  The  transducer  was  calibrated 
according  to  the  procedure  outlined  in  Section  3.2  on  day  1  (February  12, 
1985).  The  output  of  the  compensator  was  measured  on  day  2,  day  3,  and  day 
14. 

The  results  of  the  three  trials  are  shown  in  Tible  3.3.1.  The 
temperature  corresponding  to  the  measured  output  voltage  is  compared  with  the 
measured  water  bath  temperature. 

From  the  error  values  it  is  apparent  that  the  reference  junction 
compensator  voltage-reference  junction  temperature  relationship  is  valid. 
The  average  errors  and  standard  deviations  are  much  less  than  1.0%  in  all 
three  cases.  Also  the  maximum  error  for  any  measurement  is  0.83%.  These 
results  not  only  show  the  compensator  is  accurate  but  also  stable  due  to  the 
time  span  between  calibration  and  data  collection  of  trial  3. 
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Table  3.3.1  The  calculated  water  bath  temperature,  measured  bath  tempera- 
ture, and  the  associated  error  versus  output  voltage  of  the  compen- 
sator for  three  trials. 


(a)   Trial  1,  Day  2 


Measured 

Calculated 

Measured 

Voltage 

bath  temp. 

input  temp. 
<6C) 

(V) 

<°C) 

-3.500 

19.99 

20.0 

-3.363 

20.39 

20.4 

-2.762 

22.13 

22.2 

-2.467 

22.98 

23.0 

-2.229 

23.67 

23.7 

-2.143 

23.92 

24.0 

-1.839 

24.80 

25.0 

Error  of 

measured  temp. 

from  ideal 

0.06% 
0.07% 
0.34% 
0.09% 
0.13% 
0.34% 
0.81% 


Average  error: 
Standard  deviation 


0.26% 
0.27% 


(b)  Trial  2,  Day  3 


Measured 

Calculated 

Measured 

Error  of 

Voltage 
(V) 

bath  temp. 
(°C) 

input  temp. 

measured  temp, 
from  ideal 

-3.589 

19.73 

19.7 

-0.15% 

-3.136 

21.04 

21.1 

0.27% 

-2.816 

21.97 

22.1 

0.60% 

-2.619 

22.54 

22.6 

0.27% 

-2.426 

23.10 

23.1 

0.01% 

-2.203 

23.74 

23.8 

0.23% 

-1.880 

24.68 

24.8 

0.49% 

Average  error: 
Standard  deviation 


0.24% 
0.26% 


(c)  Trial  3,  Day  14 


Measured 

Calculated 

Measured 

Error  of 

Voltage 
(V) 

bath  temp. 
(°C) 

input  temp. 

measured  temp, 
from  ideal 

0.04% 

-3.602 

19.69 

19.7 

-3.310 

20.54 

20.6 

0.30% 

-3.077 

21.21 

21.3 

0.41% 

-2.798 

22.02 

22.1 

0.36% 

-2.563 

22.70 

22.7 

-0.01% 

-2.320 

23.41 

23.6 

0.83% 

-1.853 

24.76 

24.9 

0.57% 

Average  error: 
Standard  deviation 


0.36% 
0.29% 


With  the  compensator  working  satisfactorily  the  total  transducer  output 
may  be  tested.  The  temperature  probe  (the  thermocouple  sensing  junction)  was 
placed  in  a  water  bath.  The  bath  temperature  and  the  transducer  output 
voltage  were  measured  and  recorded.  Three  trials  were  performed.  The  cali- 
bration of  the  transducer  used  for  testing  the  reference  junction  compensator 
was  also  used  for  these  trials.  The  trials  were  taken  on  day  20,  day  21,  and 
day  22  (day  1  being  the  date  the  transducer  was  calibrated,  February  12, 
1985). 


The   results  are  shown  in  Table  3.3.2.    The  temperatures  corresponding 
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to  the  measured  voltages  are  calculated  and  compared  with  the  measured  bath 
temperatures.  From  the  error  values  the  transducer  is  shown  to  be  operating 
satisfactorily.  However,  it  is  hoped  to  have  the  transducer  error  of  less 
than  1.0%.  While  this  is  true  in  the  average  there  are  several  values  with 
an  error  of  larger  than  1.0%  and  one  value  larger  than  2.0%. 


Table  3.3.2  The  calculated  water  bath  temperature,  measured  bath 
ture,  and  the  associated  error  versus  output  voltage  of  the 
ture  transducer  for  three  trials. 

(a)   Trial   1,    Day  20 


tempera- 
tempera- 


Measured 

Calculated 

Measured 

Error   of 

Voltage 

bath   temp. 

input    temp. 

measured   temp. 

(V) 

(°C) 

(°C> 

from   ideal 

-3.51 

19.97 

20.1 

0.65% 

-3.33 

20.49 

20.7 

1.01% 

-3.04 

21.33 

21.3 

-0.15% 

-2.56 

22.72 

22.8 

0.35% 

-2.27 

23.56 

23.9 

1.45% 

-1.76 

25.03 

25.1 

0.29% 

-1.32 

26.29 

26.4 

0.41% 

-1.16 

26.75 

27.2 

1.67% 

-0.88 

27.56 

27.7 

0.52% 

-0.48 

28.70 

29.0 

1.04% 

-0.04 

29.96 

29.9 

-0.20% 

0.28 

30.87 

30.9 

0.08% 

0.64 

31.90 

31.8 

-0.32% 

0.94 

32.76 

32.8 

0.14% 

1.27 

33.69 

33.8 

0.32% 

1.58 

34.57 

34.7 

0.36% 

2.04 

35.88 

35.9 

0.06% 

2.44 

37.01 

36.8 

-0.57% 

2.61 

37.49 

37.8 

0.82% 

2.61 

37.49 

37.8 

0.82% 

3.49 

39.97 

40.1 

0.32% 

Average   Error: 
Standard  Deviation: 


0.43% 
0.56% 
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(b)  Trial  2,  Day  21 


Measured 

Calculated 

Measured 

Error  of 

Voltage 
(VJ 

bath    temp. 

input    temp. 

measured   temp 

(°C) 

(°C) 

from   ideal 

-3.30 

20.58 

20.7 

0.59% 

-3.08 

21.22 

21.6 

1.81* 

-2.65 

22.46 

22.8 

1.51% 

-2.35 

23.33 

23.8 

2.03% 

-1.79 

24.94 

25.0 

0.24% 

-1.33 

26.26 

26.6 

1.28% 

-0.88 

27.56 

27.8 

0.89% 

-0.56 

28.47 

28.7 

0.80% 

-0.24 

29.39 

29.8 

1.40% 

0.19 

30.62 

30.6 

-0.06% 

0.36 

31.10 

31.2 

0.31% 

0.64 

31.90 

32.0 

0.31% 

0.97 

32.84 

32.8 

-0.12% 

1.15 

33.35 

33.4 

0.14% 

1.48 

34.29 

34.3 

0.03% 

1.86 

35.37 

35.3 

-0.19% 

2.15 

36.19 

36.1 

-0.25% 

2.67 

37.66 

37.4 

-0.69% 

2.82 

38.08 

38.2 

0.30% 

3.15 

39.01 

39.1 

0.22% 

3.45 

39.86 

39.9 

0.10% 

Average  Error:        0.51% 
Standard  Deviation:    0.73% 


(o)  Trial  3,  Day  22 


Measured 

Calculated 

Measured 

Error   of 

Voltage 

bath   temp. 
(*C) 

input    temp. 

measured   temp 

(V) 

<°C> 

from   ideal 

-3.49 

20.03 

20.3 

1.35% 

-3.12 

21.10 

21.2 

0.47% 

-2.95 

21.59 

21.9 

1.42% 

-2.56 

22.72 

23.1 

1.67% 

-2.25 

23.62 

24.0 

1.63% 

-1.87 

24.71 

25.1 

1.58% 

-1.52 

25.72 

26.0 

1.10% 

-1.17 

26.72 

27.2 

1.78% 

-0.75 

27.93 

28.1 

0.61% 

-0.47 

28.73 

28.9 

0.59% 

-0.06 

29.90 

29.9 

-0.01% 

0.25 

30.79 

31.0 

0.69% 

0.75 

32.21 

32.2 

-0.04% 

0.94 

32.76 

32.9 

0.44% 

1.27 

33.69 

34.1 

1.21% 

1.73 

35.00 

35.1 

0.29% 

2.14 

36.16 

36.2 

0.11% 

2.49 

37.15 

37.3 

0.40% 

2.74 

37.86 

37.9 

0.11% 

3.07 

38.79 

38.9 

0.29% 

3.54 

40.11 

39.9 

-0.53% 

Average  Error: 
Standard  Deviation: 


0.69% 
0.67% 


This  goal  of  1%  error  in  the  determination  of  the  flow  temperature  may 
be  over  ambitious  and  unnecessary.  To  illustrate  this  a  preliminary  estimate 
of  the  sensitivity  of  the  calculation  of  the  STPD  flow  on  the  flow  tempera- 
ture is  investigated.  The  calculation  of  the  respiratory  flow  is  developed 
in  Chapter  TV  and  Appendix  III.  There  are  two  terms  in  the  calculation  of 
the   flow  that  are  dependent  on  temperature,   the  relative  viscosity  and   the 
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ITP  (Instantaneous  Temperature  and  Pressure)  to  STPD  conversion  factor  as  is 
evident  in  the  equation  for  flow 

V(STPD)  =  (AP/u)K(Pb,FH20,T)  A3. 12 

where  u  is  the  viscosity.  The  equation  for  gas  viscosity  is  developed  in 
Chapter  TV   and  is  equal  to 

*  =  ^O^  +  FwC02'IC02  +  FwN2fN2  +  FH20l»H20  4-5 

Fwx  -  the   fractional   content  of  gas  x  in  the  flow  gas   including   the 
volume  of  water  vapor  in  the  gas. 

i 

ux  -  the   modified  viscosity  of  gas  x  at  the  given   temperature.    The 

functions  of  temperature  are  given  in  Table  4.3  of  Chapter  IV. 
The  term  K<pi,.FH  0.T)  is  the  ITP  t0  STPD  o°I«rersion  factor  and  defined  as 

K(pb'FH2o-T>  =  t1  "  fH2o][273-15/(273-15  +  T>][V76°] 

T    -  the  gas  temperature 

Pt    -  the  barometric  pressure 

Fj  0  -  the  fractional  content  of  water  vapor  in  the  gas. 

It   is  not  important  to  have  a  firm  understanding  of  the  calculation  of   the 
STPD  flow  at  this  time.    The  development  of  these  equations  are  presented  in 
Chapter  TV   and  Appendix  III. 

The  sensitivity  of  the  STPD  flow  on  temperature  is 

(dV/dT)/V  =  (l/V)(d/dT)[(AP/u)K(Pb,FH20,T)] 

which'  is  equal  to 

(dV/dT)/V  =  [dK(Pb,FH20,T)/dT]/K(Pb,FH20,T)  -  (du/dT)/u      3.3.1 

That  is  the  sensitivity  of  the  flow  calculation  to  flow  temperature  is  equal 
to  the  temperature  sensitivity  of  the  ITP  to  STPD  correction  factor  minus  the 
temperature  sensitivity  of  the  viscosity  calculation.  The  sensitivity  of  the 
viscosity   to   temperature   errors   is    (from  Equation  4.5    and  Table  4.3) 

(du/dT)/u  =   (l/u)[   0.606  Fw„     +  0.612  Fw™     +  0.451  FwN     +  0.506  FH  0  ] 

The  derivative  is  taken  assuming  that  the  concentration  of  the  water  vapor  is 
independent  of  temperature.  This  assumption  is  valid  for  small  variations  in 
temperature.        Using   concentrations    in  between  the    inspiratory   and  expiratory 
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values  the  sensitivity  of  the  gas  viscosity  to  errors  in  temperature  is 

(dVdT)/n  =  [l/(168.23  +  0.482T)ir  (0.606X0.16)  +  (0.612X0.03) 

+  (0.451X0.78)  +  (0.506X0.03)  ] 


(d(i/dT)/u  =  0.482/(168.23  +  0.482T) 


3.3.2 


The   sensitivity  of  the  ITP  to  STPD  correction  factor   on   temperature 
(again  assuming  the  water  vapor  concentration  is  temperature  independent)  is 


(dK(Pb,FH20,T)/dT)/I(Pb,FH20,T)  =  -  1/(273.15  ♦  T) 
The  sensitivity  of  flow  on  respiratory  temperature  is  then 

(dV/dT)/V  =  -  1/(273.15  +  T)  -  0.482/(168.23  +  0.482T) 


3.3.3 


3.3.4 


The  errors  in  the  flow  calculation  as  a  function  of  temperature  error 
are  shown  in  Table  3.3.9  for  several  values  of  temperature.  It  is  readily 
apparent  that  the  sensitivity  of  flow  to  small  errors  in  temperature  is 
insignificant.  To  obtain  a  flow  error  of  1.0%  due  to  an  error  in  the  temp- 
erature at  30°C  requires  an  error  of  -5.6%,  or  -1.7°C.  For  these  reasons  it 
is  apparent  that  the  measured  error  of  the  temperature  transducer  is  well 
within  tolerable  limits. 

Table  3.3.9  Calculated  flow  sensitivity  to  Temperature  error.  Error  in  flow 
calculation  due  to  errors  in  the  flow  temperature  verse  the  flow 
temperature. 


Error  in 

"low  temDerature 

Temp. 

1.0% 

2.0% 

3.0% 

4.0% 

5.0% 

20.0 
25.0 
30.0 
40.0 

-0.122% 
-0.151% 
-0.178% 
-0.231% 

-0.245% 
-0.301% 
-0.356% 
-0.461% 

-0.367% 
-0.452% 
-0.534% 
-0.692% 

-0.490% 
-0.603% 
-0.712% 
-0.922% 

-0.612% 
-0.753% 
-0.891% 
-1.153% 
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Chapter  IV.   CALCULATION  OF  RESPIRATORY  VOLUMES 

For  the  successful  program  implementation  of  the  respiratory  volume 
calculations  (Appendix  III)  it  is  necessary  to  have  a  thorough  understanding 
of  the  signals  being  transduced,  the  signal  transducer  outputs,  and  the 
calibration  methods.  The  respiratory  signals  of  interest  are  discussed  in 
Chapter  II.  The  temperature  transducer  is  discussed  in  Chapter  III  and  the 
GMS  is  discussed  in  Appendix  II.  The  calibration  methods  are  discussed  in 
Chapter  V  and  Appendix  V.  The  calculation  of  gas  volumes  from  the  monitored 
signals  is  derived  in  Appendix  III. 

Is  a  brief  summary  to  Appendix  III,  these  calculations  alio*  for  the 
computation  of  gas  volumes  using  the  FTG  differential  pressure,  the  temper- 
ature, the  dry  fractional  oxygen  concentration,  the  dry  fractional  carbon 
dioxide  concentration  signals,  and  the  ambient  conditions.  From  the  FTG 
differential  pressure  signal  and  the  calculated  gas  viscosity  a  flow  signal 
is  obtained.  The  flow  signal  is  converted  to  STPD  conditions  using  the  flow 
temperature  signal  and  the  ambient  conditions,  resulting  in  a  STPD  flow. 
This  flow  is  integrated  over  each  inspiration  and  expiration  to  obtain  the 
respective  STPD  tidal  volumes  which  are  then  scaled  to  BTPS  conditions.  The 
individual  STPD  gas  flow  signals  are  obtained  from  the  STPD  flow  and  the  dry 
fractional  gas  concentration  signals.  These  gas  flows  are  integrated  to 
obtain  inspiratory  and  expiratory  gas  volumes  and  the  difference  taken  to 
obtain  STPD  volumes  of  0,  consumed  and  CO*  produced.  These  calculated  data 
and  the  inspiratory  and  expiratory  times  are  used  to  compute  the  breath-by- 
breath  values.  Simplifications  and  the  program  implementation  of  the  volume 
calculations  are  presented  in  this  chapter. 

Consider  the  volume  calculations  developed  in  Appendix  III 


Jv-K(Pb 


V(STPD)  =  |  VK(Pb,FH20,T)-dt 

where  V(STPD)  is  the  STPD  (Standard  Temperature  and  Pressure;  Dry)  volume  in 
liters,  V  is  the  flow  in  liters  per  second.  The  unitless  factor  K(Pb,FH  0,T) 
is  used  to  convert  the  ITP  (Instantaneous  Temperature  and  Pressure)  flow  to 
STPD  conditions.   This  factor  is  defined  as: 
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273.15 
K(Pb-FH20-T>    "    »  "  FH20]    .- 


273.15  +  TL  760 

where 

Pjj       -  the   ambient  barometric  pressure    (torr) 

Fq.q  -  the    fractional    content   of  water  vapor   in  the   flow  gas 

T         -  the    temperature   of   the   gas    (°C). 


The   volume    calculation   in   terms   of   the   differential   pressure    is   equal    to 

/kitr* 
-jj-   •   »   *    E<Pb.FH20'T>    •    dt 

where 

AP  -  differential  pressure  obtained  from  the  PTM  (torr) 

|i  -  viscosity  of  the  gas  (jiP) 

1  -  effective  length  of  the  PTM  (cm) 

r  -  effective  radius  of  the  PTM  (cm) 

k  -  7.5062  (10  «)  ((dyne/cm2)/torr) 

The  viscosity,  length,  radius,  differential  pressure,  and  the  ITP  to 
STPD  conversion  factor  vary  throughout  the  respiratory  cycle.  From  the  work 
of  Turney  et.  al.  [19]  the  radius  and  length  of  a  no.  1  Fleisch  PTM  vary  less 
than  0.1*  over  the  respiratory  temperature  range,  20°C  -  40°C.  Assuming  this 
is  also  the  case  with  the  larger  no.  2  Fleisch  PTM  used  in  this  study,  these 
variables  can  be  considered  constant  and  pulled  outside  the  integral  to 
obtain 

knr4  I      AP 
V(STPD)  =___  /  — •K(Pb,FH20.T)-dt  4.1 

Wilke's  equation  can  be  used  to  calculate  the  overall  viscosity  of 
mixtures  of  these  gases  [8,9,20].  The  general  form  of  Wilke's  equation  is 
given  by: 

j=i 

where 

"g  -   the  overall  gas  viscosity  (uP) 

(!£  -  the  viscosity  of  gas  i  (|iP)  at  the  temperature  T 

Fwj  -  the  fractional  concentration  of  gas  i  in  the  wet  gas 

Mj   -  the  molecular  weight  of  gas  i 

01j  -  a  dimensionless  constant  developed  by  Wilke  [20]  as 


P-i-UitT) 

4.2 
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[1  +  iH/^)(1'2Uu]/Mi)^'*'>]2 


M02  =  191-0 

+     0.616  T 

fco2  =  137-6 

+  0.450  T 

HN2  =  166.6 

+  0.454  T 

"H20  =  132-6 

+  0.570  T 

ij  "        [«'<1  +  M1/I|j>]<1/2>  4-3 

Over  the  respiratory  temperature  range  the  individual  gas  viscosities  of  0~, 
C02,  N2,  and  H20  are  linearly  related  to  gas  temperature.  These  linear 
approximations  are  shown  in  Table  4.1 

Table  4.1  Linear  approximation  of  pnre  gas  viscosities  between  20°C  -  40°r 

[10] 
[10] 
[10] 
[19] 

where 

fx  -  the  viscosity  of  gas  x  (uP) 

T  -  the  gas  temperature  (°C) 

These  viscosity  calculations  are  rather  complex  and,  considering  they 
are  executed  for  each  sample  require  a  great  deal  of  computer  time.  Wilke's 
Equations,  4.2  and  4.3,  are  the  most  complex  and  time  consuming  of  these 
calculations.  The  iterative  calculation  of  the  denominator  term  in  Equation 
4.2  would  require  the  largest  amount  of  computer  time.  If  this  equation 
could  be  reduced  to  the  linear  combination  of  the  individual  viscosities  a 
large  amount  of  computation  time  would  be  saved.  Turney  et.  al.  [19]  assumed 
mixtures  of  the  four  gases  to  have  an  overall  viscosity  equal  to  the  linear 
combination  of  the  viscosities  of  the  components  multiplied  by  their  respec- 
tive concentrations.  However,  this  does  not  account  for  the  complex  interac- 
tion between  the  various  gas  components.  This  interaction  is  quantitated 
with  the  0jj  term.  In  order  to  account  for  this  Interaction  and  maintain  the 
simplicity  of  the  linear  combination,  Equation  4.4  is  considered 

.  ^frim,  +  f*co,hco,  +  gg»a   ♦  f'h,qmh,q       4>4 

X(>2         XC02  %2  %2o 

where  the  Xs  are  constants  which  account  for  the  gas  interactions.  To  deter- 
mine if  this  is  a  valid  approximation  of  Equation  4.2  for  the  normal  respi- 
ratory concentrations  the  amount  of  variation  of  the  denominator  terms  are 
investigated. 

Shown  in  Figure  4.1  are  plots  of  the  four  denominator  terms  of  Wilke's 
equation  plotted  against  the  flow  of  a  single  respiratory  cycle.  This  cycle 
has  respiratory  signals  similar  to  those  of  Figure  2.1.2.   The  curve  is 
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traced  as  the  gas  composition  and  gas  temperature  varies  throughout  the 
respiratory  cycle.   The  average  value  and  standard  deviation  of  these 
denominator  terms  over  several  normal  respiratory  cycles  are  listed  in  Table 
4.2. 
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Figure  4.1  The  denominator  terms  of  Wilke's  equation  versus  respiratory  flow. 

Table  4.2     Average  values  of   the   denominator   terms  of 
Wilke's  equation 


Gas 

Average  + 
1   Standard  Deviation 

Oxygen 

Carbon  Dioxide 
Nitrogen 
Water  Vapor 

1.0157   +  0.0089 
0.7353   +  0.0060 
1.0074  +  0.0084 
1.1274  +  0.0094 

From  Figure  4.1  and  the  standard  deviation  (less  than  1%)  it  is  apparent  that 
these  denominator  terms  are  nearly  constant.  Therefore,  a  near  linear  rela- 
tionship exists  making  the  approximation  of  Equation  4.4  valid. 
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The  constant  X  values  are  equated  to  the  averages  of  the  denominator 
values.  By  incorporating  these  constants  into  the  viscosity  calculations  of 
Table  4.1  the  number  of  calculations  may  be  reduced  even  further.  These 
modified  viscosity  equations  are  shown  in  Table  4.3. 

Table  4.3 
Modified  linear  approximations  for  pure 
gas  viscosities  (20^0-40^0 

li^   =   188.0   +  0.606  T 

•"CO*  =     187-1     +    °-612  T 
l»N2     =     165.4     +     0.451  T 

HH2o  "  117-6  +  °-506  T 
u  z  -  the  modified  viscosity  of  gas  x  (uP) 

The  overall  viscosity  can  be  found  as  the  linear  combination  of  the  indi- 
vidual modified  viscosities  multiplied  by  their  respective  fractional  concen- 
trations. 

''g  "  FV02I102  +  ArC02)>CS02  +  FwN2fN2  +  FwH20»1H20  4-5 

Using   this   linear  approximation  to  calculate  gas   viscosity   over   several 
normal   respiratory   cycles   results   in  an  average  error  of  0.5%   from   the 
viscosity  calculated  with  Wilke ' s  equation. 

A  relative  viscosity  is  defined  as  the  viscosity  of  the  gas  relative  to 
room  air  under  STPD  conditions.  The  value  of  relative  viscosity  is  approxi- 
mately equal  to  one.  This  allows  the  calibration  factors  calculated  using 
viscosity  and  temperature  corrections  to  be  nearly  equal  to  those  calculated 
assuming  the  flow  is  directly  proportional  to  the  differential  pressure. 

ur  =  £ 4.6 

•■STPD 

Applying  these  last  few  developments  to  Equation  4.1  results  in  the  volume 
calculation  of 

knr4 
81"STPd/  ^7  "'b'rH20* 


inr«  \    AP 

V(STPD)  =  — /  •K(Pb,FH,0,T)-dt  4.7 

IT-Dj   fr 


The  trapezoidal  numerical  integration  technique  is  used  to  perform  all 
integration  operations. 


39 

Chapter  V.   SYSTEM  CALIBRATION 

Calibration  factors  must  be  determined  in  order  to  determine  the  respi- 
ratory signals  in  terms  of  their  correct  units.  These  factors  relate  the 
unitless  binary  sampled  data,  BCD  data,  to  the  physical  phenomena  being 
measured.  Calibration  of  the  gas  mass  spectrometer  as  presented  by  Creel  [4] 
and  Riblett  [13]  has  not  been  altered  and  is  not  discussed  here.  The  temp- 
erature transdnoer  calibration  procedure  and  an  alternate  scheme  for  calibra- 
tion of  the  pneumotachograph  (PTG)  are  presented.  The  new  FTG  calibration 
scheme  uses  viscosity  and  temperature  corrections. 

5.1   Temperature  Calibration 

The  thermocouple  based  temperature  transducer  produces  an  output 
voltage  related  to  the  temperature  at  the  thermocouple  tip.  Material  pre- 
sented in  Appendix  TV  indicates  that  this  temperature-voltage  relationship  is 
nonlinear.  For  the  chromel-constantan  thermocouple  the  temperature-voltage 
and,  since  the  BCD  sample  is  linearly  related  to  the  transducer  voltage,  the 
temperature-sampled  voltage  relationships  may  be  modeled  by  second  order 
polynomials  over  the  respiratory  temperature  range  (20°C  -  40°C) .  To 
determine  the  relationship  between  the  temperature  and  the  sampled  voltage, 
three  temperature-BCD  data  points  are  taken.  From  these  three  points  the 
second  order  relationship  is  generated. 

The  temperature  calibration  setup  is  shown  in  Figure  5.1.1.  Three 
water  baths  are  used  to  provide  three  input  temperatures  to  the  temperature 
transducer.  Each  water  bath  is  heated  with  a  separate  aquarium  heater.  Each 
heater  is  controlled  with  a  temperature  controller  in  order  to  maintain  the 
bath  temperature  at  a  constant  level.  The  temperatures  of  the  three  water 
baths,  22°C,  30°C,  and  39°C,  are  referred  to  as  Tlow,  Tmid,  and  Tnign  respec- 
tively. The  normal  respiratory  temperature  range  is  spanned  by  these  temp- 
eratures. 

The  tip  of  the  thermocouple  is  placed  into  a  water  bath  and  the  bath 
temperature   is  measured  with  a  calibrated   thermometer.    The   thermometer 
reading   is   entered  into  the  computer.    The  computer  program  contains   the 
thermometer's  calibration  factors  so  that  the  true  temperature  may  be  deter- 
mined.   The   computer   collects  and  averages  500  samples  of   the   transducer 
output  voltage.   This  step  is  performed  for  all  three  baths. 
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Figure  5.1.1      The      equipment      setup      for    the    calibration  of      the      temperature 
transducer. 

The     three   calibration  points    [T^B^].      iT^.B^],      and   [T^^.Btj] 
are   used   to   generate    the    second  order  polynomial: 


T     =     Tc     +     Tb-BT     +     Vf&rjZ 
From   the    three   calibration  points,    the   equation: 


is   generated,   where 


llow 
rmid 
*higi 


Bt2 

^3 


(Bt,)2 

Tc 

(BV2 

Tb 

(BT3)2 

T. 

5.1.1 


5.1.2 


T  -  the  temperature  corresponding  to  the  binary  value  BT  (°C) 

BT  -  the  binary  value  corresponding  to  the  TC  transducer  output 

Tc  -  the  zero  order  calibration  coefficient  (°C) 

Tjj  -  the  first  order  calibration  coefficient  (°C) 

T„  -  the  second  order  calibration  coefficient  (°C) 

Bj  -  the  binary  value  corresponding  to  the  TC  transducer  output 

1   for  a  temperature  of  T, 

low 

Bt«  ~  the  binary  value  corresponding  to  the  TC  transducer  output 
»    for  a  temperature  of  I,, 

Bt>  "  the   binary  value  corresponding  to  the  TC  transducer  output 
a    for  a  temperature  of  Thi  . 

Equation  5.1.2  is  then  solved  for  the  calibration  coefficients  T  ,   Tb,   and 
Tc.   These  temperature  calibration  coefficients  are  used  during  flow  cali- 
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bration  and  are  stored  for  later  use  by  the  analysis  routine. 

5.2  Flow  Calibration 

The  flow  calibration  of  Creel  [4]  and  Riblett  [13]  assumes  that  cali- 
bration and  exercise  data  collection  occur  under  the  same  temperature  and 
water  vapor  conditions.  It  is  hoped  that  by  heating  the  FTM  the  temperature 
is  nearly  the  same  during  calibration  and  data  collection.  However,  it  has 
been  observed  that  with  the  #2  Fleisch  FTM  the  temperature  signal  has  an 
average  temperature  during  calibration  of  23°C  and  deviates  about  2°C  while 
during  data  collection  it  is  approximately  10°C  warmer.  In  addition,  both 
inspiratory  and  expiratory  water  vapor  content  during  calibration  is  that  of 
room  air  which  is  usually  less  than  1%  and  seldom  greater  than  2%.  During 
data  collection  the  expiratory  water  vapor  content  can  be  as  high  as  ffh. 
Also,  Creel  and  Siblett  neglected  changes  in  the  gas  viscosity  in  order  to 
assume  the  PTG  differential  pressure  signal  to  be  directly  proportional  to 
the  flow.  While  this  assumption  is  valid  for  constant  gas  composition,  it  is 
not  valid  when  the  gas  composition  varies.  The  amount  of  variance  of  the  gas 
viscosity  during  respiration  can  be  seen  in  Figure  5.2.1.  The  relative 
viscosity  is  plotted  versus  F^  i„  the  top  figure  and  versus  flow  in  the 
bottom  figure.  The  constant  conditions  and  constant  viscosity  assumptions 
used  by  Creel  and  Riblett  lead  to  the  possibility  of  errors  in  calculating 
volumes. 

As  discussed  in  Chapter  IV,  the  gas  viscosity  can  be  calculated  and 
used  to  convert  the  AF  signal  to  a  flow  signal.  Therefore,  the  PTG  signal 
which  is  directly  proportional  to  the  AP  signal  can  be  converted  to  a  signal 
that  is  directly  proportional  to  the  flow.  The  temperature  signal  may  be 
used  to  convert  this  flow  to  any  given  temperature,  pressure,  and  water  vapor 
condition.  This  allows  for  the  integration  of  a  flow  which  is  under  constant 
conditions.  For  convenience  the  flow  is  converted  to  and  integrated  under 
STPD  conditions.  A  scheme  is  presented  which  uses  the  flow  gas  temperature 
and  the  gas  viscosity  to  calibrate  the  PTG. 

The  sampled  binary  value,   Bp,  0f  the  PTG  output  is  a  linear  function  of 
the  differential  pressure,  AP. 

Bp  ■  m'AP  +  b  5.2.1 

Ideally,   two  values  of  differential  pressure,   AP,   and  the   corresponding 
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sampled  values,  the  Bp  values,  can  be  used  to  solve  for  the  two  unknowns,  the 
slope  m  and  the  y  intercept  b.  A  zero  differential  pressure  is  easily 
generated  bnt  it  is  difficult  to  generate  a  calibrated  differential  pressure 
across  the  screen  of  the  PTM. 
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Figure  5.2.1   The   variation   of   the   relative   viscosity   throughout    the 
respirator  cycle. 


The  zero  order  term,   b,  is  equal  to  the  binary  sample  corresponding  to 
zero  differential  pressure.   Zero  differential  pressure  is  easily  generated 
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by   isolating   the  PTM  from  all  air  flow.    This  is  accomplished  by   simply 
placing  the  PTM  in  a  box.    With  the  PTM  isolated,   500  binary  samples  of  the 
PTG  output  are  collected  and  averaged.   This  average  is  then  equated  to  the 
zero  order  term. 

The   scheme  to  complete  the  relationship  of  the  sampled  data   to  the 
differential  pressure  involves  five  steps.   These  steps  are 

1.  Cycle  a  known  volume  through  the  PTM.    A  Harvard  respirator  is  used  to 
cycle  a  volume  through  the  PTM. 

2.  Convert  the  PTG  signal  to  a  signal  that  is  linearly  related  to  the 
STPD  flow  using  the  gas  viscosity  and  the  conversion  to  STPD  condi- 
tions. 

3.  Integrate  the  resultant  signal  over  each  inspiratory  and  each 
expiratory  cycle  of  the  respirator  to  obtain  a  volume  that  is  directly 
proportional  to  the  STPD  respirator  volume. 

4.  Average  the  individual  inspiratory  volumes  and  expiratory  volumes. 

5.  Compute  the  proportionality  constant  by  dividing  the  known  respirator 
volume  by  the  average  values. 

*%,       i  eiiipsraturs 


Harvard  Respirator  Heatsr 

3.5S3    LiSTPDi 
ra  £47     i  fpfpc; 

Figure  5.2.2   Equipment  setup  for  the  calibration  of  the  PTG. 


The  calibration  setup  is  shown  in  Figure  5.2.2.  This,  with  the  excep- 
tion of  the  temperature  transducer,  is  the  same  setup  used  by  Creel  [4]  and 
by  Riblett  [13].  Separate  inspiratory  and  expiratory  calibration  factors  for 
inspiratory  flows  and  expiratory  flows  are  calculated.  The  use  of  separate 
inspiratory  and  expiratory  flow  calibration  factors  is  suggested  by  Turney  et 
al.  [19]  to  account  for  the  asymmetry  of  the  PTM.  The  details  of  generating 
the  calibration  factors  are  presented  here.  Creel's  scheme  [4],  also  used  by 
Riblett  [13]  is  maintained  with  the  present  system. 
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Consider  the  volume  calculations  developed  in  Chapter  IV  and  Appendix  III. 


V(STPD)  =  JV-K(Pb,FH20,T)-dt 


which  in  terms  of  the  differential  pressure  is  equal  to 


kjtr"  f  AP 


Rearranging  Equation  5.2.1  so  that  the  sampled  data  may  be  used  to  compute 
this  volume  yields 

knr«    f    (B.„  -  b) 
V(SIPD)  =  — 4E -K(Pb,FH,0,T)-dt 

where  b  is  the  zero  order  term  which  corresponds  to  zero  flow  (zero  AP) .   The 

constant  term  multiplying  the  integral  is  combined  into  a  single  factor  known 

as  the  flow  calibration  factor.   There  are  two  calibration  factors,   one  for 

inspiratory  flow,   VT   ,   and  one  for  expiratory  flow,   V„    (Note:   these 

xcal  Kcal 

calibration  values  are  related  to  but  not  equal  to  the  first  order 

coefficient,   m,   of  Equation  5.2.1).   The  inspiratory  and  expiratory  volumes 

are  calculated  by  the  integrals 

I    (BAP  -  b) 
Vl(STPD)  =  VI<jal  /— ^ •K(Pb.FH20.T)-dt  5.2.3 

f  (BAP  -  °) 
VE(STPD)  =  VEcal  I— M •K(Pb,FH0,T)-dt  5.2.4 

->E    "r 

The  dry  gas  concentrations  of  Oj,   COj,   and  N2  needed  in  the  calcula- 
tion of  relative  viscosity  are  assumed  to  be  that  of  room  air  (Fn  =  20  93% 

U2     "   ' 

F(»2=  °-04*«  »nd  FN2=  78-0<!*)-  The  temperature  is  continually  monitored 
during  calibration  in  order  to  calculate  the  viscosity  and  to  convert  the 
computed  flow  to  STPD  conditions.  The  computations  require  the  relative 
humidity,  room  temperature,  and  the  barometric  pressure. 

The  respirator  cycles  at  60  cycles  per  minute  in  order  to  create  flows 
close  to  those  of  a  subject.  The  determination  of  the  ATPS  respirator  volume 
is  outlined  by  Creel  [4].  The  respirator  is  connected  to  a  spirometer.  As 
the  respirator  slowly  cycles  (5  cycles/min),  the  spirometer  displacement  is 
recorded  on  chart  paper.  From  the  spirometer  displacement  the  stroke  volume 
may  be  computed.   This  volume  is  under  ATPS  conditions  since  the  system  is 
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equilibrated  to  ambient  temperature  and  the  gas  is  over  water;  therefore,  is 
saturated  with  water  vapor.  By  measuring  the  temperature  of  the  water  in  the 
spirometer  and  barometric  pressure  the  respirator  volume  can  be  converted  to 
STPD  conditions. 

The  respirator  flow  is  sampled  for  80  seconds  generating  approximately 
80  respirator  cycles.  The  value  of  the  integrals  (neglecting  the  calibra- 
tion constants)  in  Equations  5.2.3  and  5.2.4  are  calculated  for  each  cycle 
and  then  averaged.  The  known  STPD  volume  of  the  respirator  is  then  divided 
by  these  averages  to  obtain  the  calibration  factors: 

STPD  respirator  volume 
VId ^ 71Z TT 5.2.6(a) 


.    n      ni^p  -  b) 

ft  E  j-^-, ■"•V'Hao.W" 

i=i  Ji.        r 


N 

STPD  respirator  volume 
VEcal  "  Z 77Z TT—  5.2.6(b) 


,      N         f(BAp  -  b) 
i=l     J-E.  r 


With  the  method  used  by  Creel  and  Riblett  the  volume  of  the  respirator 
is  determined  under  ATPS  conditions  and  the  integrand  does  not  contain  the 
viscosity  term  nor  the  ITP  to  STPD  conversion  factor.  The  integrals  of 
Equations  5.2.3    and  5.2.4    simplify   to 


tl  Jl 


(B^  -  b)'dt  5.2.7 

VE=tBcal/E<BAp-b>-dt  5-2-8 

The     calibration     factors  are   then  calculated  by  dividing  the  ATPS  volume     of 
the   respirator  by   the   average   of   the   respirator   cycles. 


*cal 


ATPS  respirator  volume 

5.2.9(a) 


Wa 


BAp  -  b)-dt 


ATPS  respirator  volume 

ve„„  ■    ;   „    : 5.2.9(b) 


-  J/< 


B^,  -  b)-dt 


The  use  of  the  respirator  volume  under  ATPS  conditions  by  Creel  [4]  and 
Riblett   [13]  has  the  potential  of  leading  to  errors  in  volume  calculations. 
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These  errors  arise  because  the  PTG  is  calibrated  under  conditions  other  than 
ATPS.  The  goal  of  heating  the  FTH  head  is  to  bring  its  temperature  to  near 
body  temperature.  Assuming  this  is  accomplished,  the  non-corrected  calibra- 
tion factors  are  computed  by  comparing  the  respirator  volume  under  ATPS 
conditions  (T  =  21°C,  FH  Q  =  2.6*  =  18.6/730)  to  a  volume  computed  at  a 
temperature  of  36°C  and  a  water  vapor  concentration  of  less  than  one  (room 
Fj  a  =  30%(18. 6/730)  ■  .7%).  This  leads  to  erroneous  inspiratory  and  expi- 
ratory flow  calibration  factors.  Also,  during  data  collection  the  expiratory 
water  vapor  content  is  near  6%  as  compared  to  less  than  1%  during  calibra- 
tion. With  this  method  the  calibration  volume  is  calculated  under  one  temp- 
erature and  pressure  condition,  the  PTG  calibrated  under  different  condi- 
tions, and  the  expiratory  volumes  calculated  under  still  another  condition. 
By  computing  all  volumes  under  STPD  conditions  these  potentials  for  errors 
are  reduced. 
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Chapter  VI.   SYSTEM  SOFTWARE 

The  CBRHS  system  software  developed  by  Creel  [4]  and  modified  by 
Eiblett  [13]  for  execution  on  the  HP9826  system  has  been  enhanced  with  volume 
calculations  which  use  the  temperature  signal  and  the  water  vapor  and  vis- 
cosity calculations  described  in  Chapter  IV.  Also,  display  of  the  breath-by- 
breath  results  using  two  breath  combination  (averaging)  techniques  has  been 
integrated  into  the  CBRHS.  The  plotting  of  the  respiratory  data,  the 
printing  of  the  breath-by-breath  respiratory  volumes,  and  the  printing  of  the 
mean  values  have  been  maintained. 

The  external  design  of  the  software,  as  described  by  Riblett,  has  not 
been  changed  (with  the  exception  of  a  few  additional  user  inputs).  There- 
fore, file  compatability  and  computer  peripheral  requirements  remain  the 
same.  The  calibration  and  respiratory  data  are  collected  using  programs 
written  in  Pascal.  The  calibration  and  data  collection  routines  store  the 
data  in  temporary  files  using  the  same  format  (ASCII  format).  The  ASCII 
format  is  necessary  since  it  is  the  only  file  format  which  is  compatible  with 
both  Basic  and  Pascal.  The  data  are  passed  to  the  analysis  routine  in  the 
same  manner;  via  the  ASCII  files.  However,  the  temporary  ASCII  data  are 
optionally  stored  on  the  HP9895A  8-inch  flexible  disk,  platter  1  of  the 
HP9134A  hard  disk,  or  platter  2  of  the  hard  disk  (the  medium  used  by 
Riblett).  The  ASCII  data  are  converted  to  the  numeric  format  of  the  Basic 
operating  system  and  stored  for  a  permanent  record  of  the  respiratory  data 
using  routines  written  in  Basic.  The  data  are  analyzed  using  an  enhanced 
analysis  routine  written  in  Basic. 

While  the  external  design  of  the  software  has  not  been  changed  from 
Riblett' s  version  [13]  the  internal  structure  has.  In  order  to  take  full 
advantage  of  the  system  languages,  Hewlett-Packards' s  Basic  and  Pascal  much 
of  the  code  was  converted  to  a  structured  format.  Structured  code  consists 
of  only  three  types  of  instructions;  sequential,  conditional,  and  iterative 
[15].  This  reorganization  resulted  in  code  that  is  more  compact,  readable, 
and  understandable. 

The  operation  of  the  system  software  is  outlined  in  Figure  6.1  and 
detailed  operator  instructions  are  given  in  Appendix  V.  Flowcharts  for  the 
various  sections  are  presented  in  the  latter  portion  of  this  Chapter  and  the 
actual  program  listings  appear  in  the  Appendix  VI  and  Appendix  VII. 
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Figure  6.1   Organization  of  the  CBRHS  software 
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The  calibration  and  respiratory  data  are  collected  with  software 
written  in  Pascal.  Pascal  is  reqnired  because  of  the  need  of  assembly  code 
to  control  the  DAM  in  the  collection  of  the  data  [13].  Calculation  of  the 
calibration  factors  for  the  system  is  accomplished  with  the  Pascal  program 
CAP2.C0DE.  The  respiratory  data  are  collected  with  the  Pascal  program 
DAM. CODE.  As  mentioned,  both  Pascal  programs  store  their  data  on  disk  in 
ASCII  format.  The  Basic  programs  DAPCRUNCH  and  CAPCRUNCH  convert  this  ASCII 
data  to  the  more  compact  numeric  format  of  the  Basic  system.  The  compacted 
data  are  stored  on  disk  for  a  permanent  record.  These  data  are  then  used  by 
the  Basic  program  ANALYSIS  to  compute  and  display  the  various  respiratory 
parameters. 

6.1  CAP2.C0DE:  A  Pascal  Routine  for  System  Calibration 

CAP2.C0DE  (CAlibration  Program,  version  2)  determines  calibration 
factors  which  are  used  to  relate  the  sampled  transducer  outputs  to  the 
respiratory  signals.  Computation  of  the  GMS  calibration  factors  was 
developed  by  Creel  [4]  and  the  computation  of  the  temperature  transducer  and 
flow  transducer  calibration  factors  is  discussed  in  Chapter  V.  The  flowchart 
of  the  calibration  program  is  shown  in  Figure  6.1.1.  The  operator's  instruc- 
tions for  CAP2  are  given  in  Appendix  V,  Section  A5.4.1,  and  the  Pascal  source 
code  is  documented  in  Appendix  VI,  Section  A6.1. 

When  the  program  begins  execution  the  sampling  frequency  is  entered. 
This  sampling  frequency,  generally  50  Hz,  is  used  when  the  calibration  points 
are  being  sampled.  The  GMS  is  the  first  device  to  be  calibrated.  The 
calibration  of  the  GMS  may  be  skipped,  the  same  is  true  for  the  flow  and 
temperature  transducers.  (Skipping  any  one  of  the  calibration  sections 
usually  occurs  only  if  a  test  is  being  conducted  on  a  particular  transducer 
or  particular  section  of  the  calibration  program.)  The  temperature  trans- 
ducer is  calibrated  next. 

The  PTG  is  the  final  transducer  to  be  calibrated.  If  temperature  and 
viscosity  corrections  are  to  be  used  the  ambient  temperature,  humidity,  and 
pressure  are  entered.  A  flow  chart  of  the  flow  calibration  scheme  is  pre- 
sented in  Figure  6.1.2  and  is  discussed  shortly.  Use  of  the  temperature  and 
viscosity  calculations  with  the  flow  calibration  may  be  optionally  omitted. 
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Figure  6.1.2  Flow  calibration  procedure 
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Finally  the  calibration  data  are  stored  along  with  the  date.   Program 
execution  stops,  and  the  computer  operation  returns  to  the  Main  Command  Level 
of  the  Pascal  operating  system. 

The  flow  chart  of  the  flow  calibration  is  outlined  in  Figure  6.1.2. 
First  the  binary  value  corresponding  to  zero  flow  is  found.  A  default  value 
of  2038  can  be  used  for  the  binary  value  corresponding  to  zero  flow  (nearly 
all  calculated  zero  flow  values  are  equal  to  2038). 

The  pump  flow  is  then  sampled  for  4000  points.  The  binary  inspiratory 
and  expiratory  volumes  of  the  pump  are  computed  (the  computation  of  the 
binary  volumes  is  presented  in  Section  6.5)  for  each  cycle  of  the  respiratory 
signal.  During  calibration  two  sets  of  the  binary  volumes  are  computed;  one 
set  uses  temperature  and  viscosity  corrections  and  the  other  uses  no  correc- 
tions. The  binary  volumes  of  each  respiratory  cycle  are  averaged.  The 
inspiratory  calibration  factors  are  found  by  dividing  the  pump  volume  by  the 
average  inspiratory  binary  volumes.  The  same  steps  are  performed  with  the 
corresponding  expiratory  volumes  to  determine  the  expiratory  calibration 
factors.   The  routine  then  returns  to  the  main  calibration  routine  CAM. CODE. 

Below  is  a  list  of  the  major  revisions  to  the  original  calibration 
program,  CAP. CODE,  described  by  Riblett  [13]. 

1.  Calibration  of   the   temperature  transducer  can  be  repeated  upon   the 
user's  request. 

2.  The  PTG  can  optionally  be  calibrated  nsing  temperature  and  viscosity 
corrections  in  addition  to  the  method  used  by  Riblett. 

3.  The   calibration  da  ia   may  be  stored  on  one   of   three   disk   drives; 
platters  1  or  2  of  the  hard  disk  or  the  8-inch  floppy  disk. 

4.  When  data  are  being  collected  the  number  of  samples  and  the  length  of 
time  required  to  collect  the  samples  are  displayed. 

5.  The  operator  is  prompted  with  an  audible  beep  for  all  input  data,   just 
as  occurs  with  the  Basic  routines. 

6.2  DAP2.C0DE:  A  Pascal  Routine  to  Collect  Respiratory  Data 

DAP2.CODE  (Data  Acquisition  Program,  Version  2)  collects  the  respira- 
tory data  from  the  subject  and  stores  the  data  on  disk  using  ASCII  format. 
Version  one   of   this   program  was  written  by  Riblett  [13]   and   only  minor 
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modifications  were  made  for  version  2.  The  flowchart  for  DAP2  is  shown  in 
Figure  6.2.1.  The  operator's  instructions  for  DAP2  are  given  in  Appendix  V, 
Section  A5.4.2  and  the  Pascal  source  code  is  documented  in  Appendix  VI, 
Section  A6.2 . 


Enter  sampling  frequency  and 
number  of  samples  to  collect 


Collect  the  data 


Compute  maximum  and  minimum 

values  of  each  channel  and  count 

the  number  of  saturated  values 


Contains 
no  data 


Store  the  maximum  and 
minimum  values  and  the  Dat 


DAP2  End 


Figure  6.2.1   Data  acquisition  progra 


DAP2 


The  modifications   to  version  1  of  the  data  acquisition   program   are 
listed  below. 

1.   The   respiratory  data  may  be  stored  on  one   of   three   disk  drives; 
platters  1  or  2  of  the  hard  disk  or  the  8-inch  floppy  disk. 


2.   The  ASCII  data  are  protected  from  accidentally  being  overwritten. 
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3.  When  the  data  are  being  collected  the  number  of  samples  and  the  length 
of  time  required  to  collect  the  samples  are  displayed. 

3.  The  number  of  data  points  equal  to  the  positive  saturation  value  of  the 
A/D,  4095,  and  the  number  equal  to  the  negative  saturation  value  of  the 
A/D,  0,  are  counted  and  displayed  for  each  channel. 

4.  The  operator  is  prompted  with  an  audible  beep  for  all  input  data,  just 
as  occurs  with  the  Basic  routines. 

6.3   AUTOST.  CAPCRUNCH.  and  DAPCRUNCH: 

Auto-start  and  File  Compaction  Routines 

The  auto-start  program,  AUTOST,  serves  as  a  link  between  the  various 
routines  written  in  Basic.  CAPCRUNCH  and  DAPCRUNCH  are  Basic  programs  which 
convert  the  data  stored  on  disk  in  ASCII  format  by  the  Pascal  programs 
CAP2.C0DE  and  DAP2.CODE  to  the  more  compact  numeric  formats  of  the  Hewlett- 
Packard  Basic.  This  compaction  greatly  reduces  the  amount  of  storage  space 
required  for  the  data  and  the  length  of  tine  to  retrieve  the  data  from  disk. 
The  operator's  instructions  for  AUTOST,  CAPCRUNCH,  and  DAPCRUNCH  are  given  in 
Appendix  V,  Section  A5.5,  and  the  Basic  programs  are  documented  in  Appendix 
VII,    Sections  A7.3,   A7.4,    and  A7.5. 

The  flowchart  of  Figure  6.3.1  is  a  combination  of  three  separate 
programs.  The  auto-start  program,  AUTOST,  serves  as  a  link  between  the  three 
CBRMS  programs;  DAPCRUNCH,  CAPCRUNCH,  and  ANALYSIS;  by  allowing  them  to  be 
executed  with  the  press  of  a  key.  Another  Basic  program,  STOREHR  (Store 
Heart  Rate)  can  be  loaded  from  AUTOST.  AUTOST  also  allows  several  other 
useful  operations;  CATaloging  of  disks,  setting  the  default  mass  storage 
device,    and   loading   other  programs. 

CAPCRUNCH,  converts  (crunches)  the  calibration  factors  computed  and 
stored  (in  ASCII  format)  by  the  Pascal  program  CAP2.CODE  from  the  ASCII 
format  to  the  more  compact  numeric  format  of  the  Hewlett-Packard's  9826 
Basic.  DAPCRUNCH  does  the  same  for  the  respiratory  data  collected  and  stored 
by  Pascal  program  DAP2.CODE.  Below  is  a  list  of  the  revisions  made  to  these 
programs. 


1. 


A  common  area  of  memory  has  been  set  up  so  that  the  data  read  by  the 
CAPCRUNCH  and  DAPCRUNCH  programs  remain  in  memory  to  be  used  by  the 
ANALYSIS  program. 
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2.  The  ASCII  data  can  be  read  with  the  crunching  programs  from  either 
platter  1  or  platter  2  of  the  hard  disk  or  the  8- inch  disk  drive. 

3.  The  file  names  of  the  respiratory  data  are  entered  at  the  beginning  of 
the  DAPCRUNCH  program.   This  allows  the  names  to  be  entered  all  at  once 
and  then  the  data  from  all  four  channels  are  read  in  and  converted  and 
finally  stored  withont  the  need  for  further  operator  inpnt. 
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Figure  6.3.1   ADTOST,  CAPCRUNCH,  and  DAPCRUNCH  programs 
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6-4     ANALYSIS:  A  Basic  Routine  to  Calculate  the  Respiratory  Parameters 

ANALYSIS  is  the  analysis  routine  which  performs  the  computations 
necessary  to  yield  the  respiratory  parameters  described  in  Chapter  IV.  These 
parameters  may  be  displayed  in  a  variety  of  formats.  The  operator's  instruc- 
tions for  ANALYSIS  are  given  in  Appendix  V,  Section  A5.6,  and  the  Basic 
program  documentation  is  in  Appendix  VII,  Section  A7.6. 

Figure  6.4.1  shows  the  flowchart  of  ANALYSIS.  The  analysis  program  is 
called  from  the  AUTOSTart  program,  as  shown  in  the  flowchart  of  the  AUTOSTart 
program  (Figure  6.3.1).  System  operation  can  also  return  from  the  analysis 
program  to  the  AUTOSTart  program.  The  first  section  of  the  analysis  program 
obtains  the  necessary  subject  information,  the  subject's  respiratory  data, 
and  the  calibration  data.  The  respiratory  and  calibration  data  may  be  resi- 
dent in  memory  due  to  the  execution  of  the  data  compaction  programs, 
CAPCEUNCH  and  DAPCRUNCH,  or  previous  execution  of  the  analysis  program. 
These  data  may  be  used  by  the  analysis  program  or  new  data  may  be  read  from 
disk. 

The  operator  selects  the  type  of  GMS  time  delay  [13],  breath-by-breath 
or  fixed,  and  whether  temperature  and  viscosity  calculations  are  to  be  used 
in  computing  respiratory  flow.  The  operator  may  plot  the  raw  respiratory 
data.  The  window  of  data  points  for  which  the  respiratory  parameters  are  to 
be  calculated  is  selected  and  the  calculation  of  the  respiratory  parameters 
for  that  window  begins. 

The  GMS  time  delay  for  the  breath  being  analyzed  is  determined  first. 
The  time  delay  is  either  a  fixed  value  or  a  computed  value.  The  algorithm 
for  the  computatior.  of  the  breath-by-breath  time  delay  was  presented  by 
Siblett  [13].  The  binary  volumes  of  air,  oxygen,  and  carbon  dioxide  are 
computed.  The  computation  of  the  binary  volumes  is  described  in  Section  6.5 
(this  is  the  same  flowchart  used  by  the  calibration  program;  CAP2.C0DE, 
Section  6.1;  to  compute  the  binary  pump  volumes).  The  flow  calibration 
factors  are  used  to  convert  the  binary  volumes  to  the  the  various  respiratory 
volumes  having  the  units  of  liters.  The  respiratory  volumes  may  be  printed 
for  each  breath  being  analyzed;  however,  most  information  can  be  attained 
from  the  later  display.  These  respiratory  volumes  and  the  duration  of  the 
respiratory  cycle  are  used  to  compute  the  other  respiratory  parameters; 
minute  values,  respiratory  quotient,  and  respiratory  frequency.  All  respi- 
ratory parameters   are  retained  for  later  display.    After  all  data   in  the 
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Figure  6.4.1  Data  analysis  program,  ANALYSIS 
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Figure    6.4.1       (continued.) 


specified  window  have   been  analyzed   the  mean  respiratory  parameters   for      that 
window  are   computed  and  printed. 

Following  the  printing  of  the  mean  values  the  computed  breath-by-breath 
respiratory  parameters  may  be  displayed.  The  flowchart  for  the  display  of 
the  breath-by-breath  data  is  shown  in  Figure  6.4.2.  Successive  breath-by- 
breath  values  may  be  combined  by  one  of  two  techniques;  breath  averaging, 
flowchart  shown  in  Figure  6.4.3,  or  window  averaging,  flowchart  shown  in 
Figure  6.4.4.  All  of  the  respiratory  parameters  may  be  printed  or  any  two 
parameters  may  be  plotted.  After  the  parameters  have  been  displayed,  control 
may  be  passed  back  to  the  main  portion  of  the  analysis  program  or  additional 
parameters  may  be   displayed. 

The  first  of  the  breath  combination  techniques  is  breath  averaging. 
Figure  6.4.3.  The  specified  number  of  breath-by-breath  values  are  summed.  A 
breath  is  not  included  in  the  sum  if  it  is  considered  a  bad  breath  and  the 
operator  specifies  that  the  bad  breaths  are  to  be  omitted.  A  bad  breath  is 
defined  as  a  breath  that  has  an  inspiratory  tidal  volume  or  an  expiratory 
tidal  volume  of  less  than  or  equal  to  400mL.  The  summing  continues  until  the 
specified  number  of  breaths  have  been  averaged  or  no  more  breath-by-breath 
data  are  available.  The  average  is  computed.  The  routine  then  returns  the 
average   value,    the    time  value    that    is  midway  between   the   first   breath   and   the 
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Figure  6.4.3   The  breath  averaging  procedure 


last  breath  averaged,  and  the  number  of  bad  breaths  that  are  skipped. 


The  flowchart  for  the  window  averaging  technique  is  shown  in  Figure 
6.4.4.  The  goal  of  the  window  averaging  technique  is  to  look  at  a  window  in 
time  and  average  all  the  breath  values  in  that  window.  This  is  illustrated 
in  Figure  2.2.3  for  two  windows. 
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Figure  6.4.4   The  window  averaging  procedure 
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The  first  thing  the  window  average  routine  does  is  to  find  the  first 
breath  that  occurred  in  the  window.  The  time  of  a  breath  is  cheeked.  If  the 
time  of  this  breath  precedes  the  left  edge  of  the  window  then  the  next  breath 
is  tested.  If  the  time  of  the  breath  occurs  after  or  at  the  same  time  as  the 
left  edge  of  the  window  then  the  preceding  breath  is  checked.  If  the  time  of 
the  preceding  breath  precedes  the  left  edge  of  the  window  then  the  breath 
being  checked  is  the  first  breath  in  the  window.  If  the  time  of  the  pre- 
ceding breath  is  to  the  right  of  the  left  edge  of  the  window  then  the  breath 
being  checked  is  not  the  first  breath  in  the  window  and  the  preceding  breath 
is  checked. 

Once  the  first  breath  in  the  window  is  found  the  remaining  breaths  in 
the  window  are  averaged.  This  is  done  by  summing  the  breath  values  for  each 
breath  in  the  window.  If  a  breath  is  bad  and  the  bad  breaths  are  to  be 
omitted  then  it  is  not  ineluded  in  the  sum.  Once  the  time  of  a  breath  is  to 
the  right  of  the  window  the  summing  stops.  The  sum  is  divided  by  the  number 
of  breaths  included  in  the  sum  to  obtain  the  average.  If  the  window  did  not 
contain  any  breaths  then  a  flag  is  set  and  the  average  is  not  computed. 

Below  is  a  summary  of  the  major  additions  to  the  ANALYSIS  routine. 

1.  The  respiratory  data  and  calibration  data  are  retained  in  memory  from 
the  previous  execution  of  the  crunching  routines  or  analysis  routine. 
This  bypasses  the  need  to  read  data  from  disk  for  each  execution  of  the 
analysis  routine. 

2.  The  printed  output  of  the  breath-by-breath  volumes  may  be  omitted. 
This  increases  the  execution  speed  of  the  analysis  program. 

3.  The  breath-by-breath  results  may  be  plotted  or  printed.  The  individual 
values  may  be  displayed  or  groups  of  the  breath-by-breath  values  may  be 
combined. 


6.5   Computation  of  the  Binary  Volumes 

The  trapezoidal  rule  is  used  to  implement  the  computation  of  the  binary 
volumes  of  the  various  respiratory  gases.  The  computations  are  developed  in 
Appendix  III  and  Chapter  4.  The  flowchart  implementation  of  this  scheme  is 
shown  in  Figure  6.5.1. 
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Figure  6.5.1   Computation  of  the  binary  volumes. 
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Half  of  the  incremental  volumes  corresponding  to  the  first  inspiratory 
point  is  set  equal  to  the  accumulated  inspired  volumes.  The  incremental 
volumes  of  all  inspiratory  flows  are  then  added  to  the  accumulated  inspir- 
atory volumes  until  the  inspiratory/expiratory  transition  is  found.  Half  of 
the  incremental  volumes  of  the  various  respiratory  gases  corresponding  to 
this  transition  are  added  to  the  accumulated  inspiratory  volumes  while  the 
other  halves  are  used  to  initialize  the  accumulated  expiratory  volumes.  The 
incremental  volumes  during  expiration  are  added  to  the  accumulated  volumes 
until  the  expiratory/ inspiratory  transition  is  found.  Half  of  the  respir- 
atory gases  corresponding  to  this  transition  are  added  to  the  expiratory 
volumes.  This  transitory  point  is  then  the  beginning  point  of  inspiration 
for  the  next  respiratory  cycle. 

6.6   STflRKHR-  A  Basic  Routine  to  Store  the  Heart  Rate  Values 

STOREHR  is  a  simple  Basic  program  which  allows  the  operator  to  enter 
the  heart  rate  values  and  also  store  the  values  in  a  format  compatible  with 
Sprick's  general  purpose  plotting  program  [16].  The  flowchart  for  the  pro- 
gram is  shown  in  Figure  6.6.1.  Sprick's  plotting  routine  may  be  loaded,  if 
so  desired,  which  would  allow  the  heart  rate  values  previously  stored  to  be 
plotted.  When  using  Sprick's  plotting  routines  enter  TIME  for  the  X-axis 
variable,  MTN  for  X-axis  units,  and  2  (2  samples/min)  for  the  sampling 
frequency.  The  operator's  instructions  for  STOREHR  are  given  in  Appendix  V, 
Section  A5.7  and  the  Basic  program  documentation  is  in  Appendix  VII,  Section 
A7.7. 
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Chapter  VII.   EXPERIMENTAL  VERIFICATION  OF  THE  S7STF.M 

The  computation  of  the  various  breath-by-breath  respiratory  parameters 
is  based  on  two  basic  principles;  the  computation  of  respiratory  cycle  time 
and  the  computation  of  the  respiratory  volumes.  The  computation  of  the  cycle 
time  is  a  trivial  task  for  the  computer  system  provided  the  data  acquisition 
system  is  functioning  properly.  The  computer  simply  counts  the  number  of 
samples  involved  with  the  respiratory  cycle  and  divides  this  number  by  the 
sampling  rate.  The  computation  of  the  respiratory  volumes  on  the  other  hand 
is  a  very  complex  matter.  This  is  readily  apparent  from  the  development  of 
Chapters  IV  and  V  and  Appendix  III.  The  calculations  for  the  respiratory 
volumes  are  repeated  below. 


f  273  15  +  T 

VI(E)(BTPS)  =  I  VSTpD  dt       '      b 
Jt(T>.)  273.15 


dt 


Inspiratory  (Expiratory)  tidal  volumes 

273.15  +  Tb   _      760 
'HE)"         273-"         Pb  "  pH20<Tb> 

Volumes  of  02  consumed  and  C02  produced 

V02   =  //02  "  *STPD  "   -  /eF„2  •  VSTpD 

VC02  =  JEFC02  •  ^STPD  d*   "  JIPC02  '  VSTPD  d* 

From  these  equations  the  dependency  of  the  volume  calculations  on  a 
variety  of  variables  is  apparent.  Essential  to  these  volume  calculations  is 
the  ability  to  obtain  a  valid  flow  signal  under  a  known  pressure,  temper- 
ature, and  water  vapor  condition.  In  this  case  the  flow  is  under  STPD 
conditions.  In  addition  to  the  dependency  on  the  valid  flow  signal,  the 
calculations  of  V,^  and  Vq^  are  dependent  on  knowing  the  fractional  02  and 
C02  composition  signals.  The  Perkin-Elmer  GMS  provides  very  accurate  frac- 
tional content  signals.  The  method  for  calculation  of  the  GMS  delay  time 
provides  the  necessary  time  alignment  of  the  fractional  composition  signals 
with  the  flow  signal  [13]. 

The  respiratory  signals  are  slowly  varying  relative  to  the  50  Hz 
sampling  frequency.  The  trapezoidal  numerical  integration  technique  is 
sufficient  for  integrating  slowly  varying  signals.  Therefore,  the  final 
critical  link  in  the  calculation  of  the  respiratory  volumes  is  the  attainment 
of  a  valid  flow  signal. 

The  STPD  flow,  VSTpD,  is  given  by 
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Vsm)  =  [AP/u]  K(Pb.FH20,T) 
where  the  factor  K(Pb,FH 0,T)  is  the  IIP  to  STPD  conversion  factor 

273.15        Pu 


K(Pb'FH20'T)  =  [1  -  FH20] 


273.15  +  T      760 


In  terms  of  the  sampled  data  the  flow  is  equal  to 

*STPD  =  *I(E)cal  t<Bp  "  W/t^J  K<Pb'FH20'T>- 

The   possible   errors   in  the  calculation  of  the  STPD  flow  can  be   seen   from 
these  equations  and  are  summarized  here: 

1.  The  determination  of  the  calibration  factors,  V.,,m 

1(E,cal' 

2.  The   determination  of  the  binary  sampled  value  corresponding   to   zero 
flow  through  the  PTM,  b. 

3.  The  determination  of  the  relative  gas  viscosity,  u  . 

4.  The  determination  of  the  barometric  pressure,  Pb. 

5.  The  determination  of  the  F^  valne  throughout  the  respiratory  cycle. 

6.  The  measurement  of  the  respiratory  flow  temperature  signal,  T. 

The  barometric  pressure  is  constant  over  a  short  period  of  time  and  is 
easily  measured.  The  value  corresponding  to  zero  flow  is  also  easily  deter- 
mined.  Therefore,  these  two  sources  of  error  can  be  immediately  discounted. 

It  was  shown  in  Chapter  III  that  the  temperature  transducer  could 
measure  temperature  with  sufficient  accuracy.  The  determination  of  the 
fractional  content  of  water  (inspiratory  FH  Q  is  equal  to  that  of  room  air 
and  expiratory  FH20  is  equal  to  the  saturated  value)  appears  to  be  accurate 
and  consistent  with  the  methods  of  other  researchers.  An  alternative  to 
determining  the  temperature  and  water  vapor  content  is  to  maintain  them  at 
constant,  known  value.  The  PTM  may  be  heated  in  an  attempt  to  maintain  a 
constant  flow  temperature  but  the  success  of  this  procedure  is  suspect.  The 
water  content  of  the  flow  signal  can  not  be  maintained  constant.  The  water 
content  in  the  inspiratory  air  is  equal  to  the  water  content  of  room  air 
(generally  less  than  1%)  while  during  expiration  the  water  content  is  much 
higher  (5%  -  6*) .    Therefore,  the  temperature  and  water  vapor  content  should 
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be  monitored.  The  final  two  possibilities  which  could  lead  to  errors  in  the 
flow  signal  are  the  determination  of  the  calibration  factors  and  the  deter- 
mination of  the  relative  gas  viscosity. 

To  investigate  the  validity  of  the  methods  used  to  calculate  the  respi- 
ratory volumes  a  Harvard  respirator  is  used  to  cycle  a  tnown  volume  through 
the  PTM.  The  resultant  flow  signal  is  integrated  and  the  calculated  volume 
compared  with  the  known  pump  volume.  The  gas  content  and  the  temperature  are 
altered  to  determine  the  effect  on  the  volume  calculations.  These  altera- 
tions cause  the  relative  viscosity  and  the  temperature  of  the  gas  to  vary 
from  the  conditions  of  calibration.  The  premise  of  this  testing  is  to  show 
that  the  CBRMS  can  compute  the  pump  volume  accurately;  therefore,  showing 
that  the  calculated  flow  signal  and  integration  technique  are  valid.  With  a 
valid  STPD  flow  signal  the  02  and  C02  volumes  are  accurate  since  the  frac- 
tional content  signals  with  the  associated  GMS  time  delay  provide  an  accurate 
fractional  content  of  the  dry  gas. 

It  should  be  pointed  out  that  a  nonconversion  of  the  flow  signal  to 
STPD  conditions  causes  an  error  in  the  calculation  of  the  02  and  CO,  gas 
volumes.  This  is  because  a  flow  which  contains  water  vapor  is  multiplied  by 
the  F02  «"•  Pc02  signals  which  are  the  fractional  content  of  02  and  C02  in 
the  flow  neglecting  the  volume  of  water  vapor.  Therefore,  the  computed  gas 
volumes  are  over  estimated,  especially  the  expiratory  volumes  which  are 
saturated  with  water  vapor. 

In  addition  to  this  test,  the  respiratory  measurements  taken  from  two 
healthy  male  subjects  are  presented  and  discussed. 

7.1   Experimental  Methods 

The  experimental  apparatus  shown  in  Figure  7.1.1  is  used  to  cycle  a 
volume  of  gas  equal  to  the  pump  volume  through  the  pneumotachometer.  Data 
are  collected  with  the  CBRMS  nnder  three  conditions: 

1.  with   the  Douglas  bag  disconnected  (the  same  conditions  that  the  PTM  is 
calibrated  under), 

2.  with  the  Douglas  bag  containing  room  air, 

3.  and  with  the  Douglas  bag  containing  a  gas  mixture  of  approximately   6* 
C02  and  14%  Oj  with  the  balance  of  N2. 
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Figure  7.1.1   Experimental   setup  used  to  cycle  a  known  volume  of   gas   under 
known  conditions  through  the  PTM. 

The  temperature  transducer  is  used  to  monitor  the  flow  temperature  and  the 
GMS  is  used  to  monitor  the  fractional  content  of  0,  and  C02  in  the  gas.  The 
system  is  calibrated  and  data  are  collected  using  the  normal  procedures. 
Appendix  V,  Section  A5.4.  The  data  are  analyzed  using  a  modified  version  of 
the  ANALYSIS  program.  The  modifications  to  the  ANALYSIS  program  are  listed 
below. 

1.  Two  sets  of  inspiratory  and  expiratory  volumes  are  calculated.  One  set 
of  the  inspiratory  and  expiratory  volumes  use  the  temperature  and 
viscosity  calculations  (referred  to  as  method  A)  to  determine  the  flow 
prior  to  integration.  The  other  set  of  inspiratory  and  expiratory 
volumes  are  calculated  using  Riblett's  method  (referred  to  as  method 
B).  That  is,  the  flow  is  linearly  related  to  the  PTG  differential 
pressure  signal  and  is  under  constant  temperature  and  water  vapor 
conditions. 

2.  The  inspiratory  and  expiratory  volumes  calculated  using  the  viscosity 
calculations  are  not  scaled  to  BTPS  conditions.  This  allows  for  direct 
comparison  between  the  computed  STPD  volume  and  the  STPD  pump  volume. 

3.  The  average  viscosity,  average  fractional  02  and  C02  content,  and 
average  temperature  of  the  gas  mixture  are  calculated. 

4.  The  fractional  content  of  water  vapor  in  the  flow  air  is  a  constant 
value. 


71 


7.2   Experimental  Results  and  Conclnslons 


The  experimental  results  are  shown  in  Table  7.2.1,  Table  7.2.2,  and 
Figure  7.2.1.  The  average  conditions  of  the  flow  gas  for  the  various  trials 
are  given  in  Table  7.2.1.  The  computed  average  inspiratory  and  expiratory 
pump  volumes  are  listed  in  Table  7.2.2.  Shown  in  Figure  7.2.1  are  the 
typical  signals  recorded  with  the  CBRMS. 

The  error  values  of  the  first  trial  with  the  PTM  connected  to  the 
Douglas  bag.  Table  7.2.2  (b)  and  Table  7.2.2  (c),  are  extremely  large.  This 
large  error  is  due  to  a  poor  connection  between  the  pump  and  the  PTM  which 
allows  air  to  escape.  The  reason  the  errors  are  small  with  the  bag  discon- 
nected is  because  the  same  amount  of  air  escaped  during  calibration  as  during 
data  collection;  therefore,  the  calibration  factors  are  also  in  error.  These 
two  errors  cancel.  However,  with  the  bag  connected  to  the  PTM  the  resistance 
to  flow  is  altered  so  that  the  amount  of  air  passing  out  the  leak  is  also 
altered.  This  air  leak  is  not  present  with  the  data  collected  for  the 
remaining  trials. 


Table  7.2.1   The  average  conditions  of  the  flow  gas.    (a)  The  flow  air 


room   air. 


(b)  The  flow  air  is  room  air  with  an  elevated 
temperature,  (c)  The  flow  air  was  a  mixture  of  approximately  6%  CO,, 
14%  Oj,  and  a  balance  of  N2. 


Table  7.2.1  (a) 


Trial 

Date 

Average 
Temp. 

Average 
02   cone. 

Average 
C02   cone. 

Average 
Viscosity 

1 
2 
3 
4 

2/25/85 
2/26/85 
2/28/85 
3/1/85 

23.7 
24.4 
24.6 
24.6 

21.00% 
21.00% 
21.09% 
20.09% 

0.00% 
0.00% 
0.00% 
0.00% 

184.65 
185.13 
185.22 
185.22 

Table  7.2.1  (b) 


Trial 

Date 

Average 

Average 

Average 

Average 

Temp. 

02   cone. 

C02   cone. 

Viscosity 

1 

2/25/85 

38.8 

21.05% 

0.02% 

189.92 

2 

2/26/85 

29.3 

21.02% 

0.04% 

187.57 

3 

2/28/85 

38.1 

20.09% 

0.03% 

189.01 

4 

3/1/85 

35.7 

21.00% 

0.01% 

190.66 

5 

3/4/85 

37.5 

20.09% 

0.04% 

187.40 

6 

3/4/85 

37.9 

21.00% 

0.02% 

188.37 

Table  7.2.1  (c) 


Trial 

Date 

Average 

Average 

Average 

Average 

Temp. 

02  cone. 

C02  cone. 

Viscosity 

1 

2/25/85 

35.2 

13.37% 

6.51% 

190.38 

2 

11261 tS 

31.3 

15.17% 

5.11% 

188.62 

3 

2/28/85 

29.2 

15.32% 

4.94% 

187.58 

4 

3/1/85 

36.2 

13.50% 

6.41% 

189.98 

5 

3/4/85 

37.0 

13.62% 

6.32% 

190.27 

6 

3/4/85 

38.6 

13.24% 

6.70% 

190.69 
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Table  7.2.2  Experimental  results  which  compare  the  calculation  of  a  known 
volume  with  and  without  temperature  and  viscosity  corrections.  The 
errors  are  with  respect  to  a  volume  of  560  mL  (STPD)  and  647  mL 
(ATPS).  (a)  The  flow  air  is  room  air.  (b)  The  flow  air  is  room  air 
with  an  elevated  temperature.  (c)  The  flow  air  was  a  mixture  of 
approximately  6%  C02,  14%  02,  and  a  balance  of  N2. 


Table  7.2.: 

Volumes  computed  with 
the  corrections  (STPD) 

.  (a) 

Volumes  computed  without 
the  corrections  (ATPS) 

Trial 

Insp. 
(mL) 

Insp. 
error 

Expr. 
(mL) 

Expr. 
error 

Insp. 
(mL) 

Insp. 
error 

Expr. 
(mL) 

648.5 
643.1 
657.6 
653.3 

Expr. 
error 

1 
2 
3 
4 

560.3 
557.9 
562.2 
563.1 

-0.1% 

0.4% 

-0.4% 

-0.6% 

561.8 
556.9 
565.7 
565.4 

-0.3% 

0.6% 

-1.0% 

-1.0% 

647.8 
642.4 
656.5 
652.1 

-0.1% 

0.7% 

-1.5% 

-0.8% 

-0.2% 

0.6% 

-1.6% 

-1.0% 

Table  7.2.. 

Volumes  computed  with 
the  corrections  (STPD) 

I    (b) 

Volumes  computed  without 
the  corrections  (ATPS) 

Trial 

Insp. 

(mL) 

Insp. 
error 

Expr. 
(mL) 

Expr. 
error 

Insp. 
(mL) 

Insp. 
error 

Expr. 
(mL) 

Expr. 
error 

1 
2 
3 
4 
5 
6 

610.8 
568.0 
576.0 
577.5 
562.1 
568.4 

-9.1% 

-1.4% 
-2.9% 
-3.1% 
-0.4% 
-1.5% 

625.4 
570.8 
588.4 
590.7 
565.2 
572.6 

-11.7% 
-1.9% 
-5.1% 
-5.5% 
-0.9% 
-2.3% 

753.2 
672.6 
7*,9.0 
722.6 
680.0 
675.0 

-16.4% 

-4.0% 

-11.1% 

-11.7% 

-5.1% 

-4.3% 

756.0 
678.3 
727.0 
728.3 
686.2 
675.4 

-16.8% 
-4.8% 
-12.4% 
-12.6% 
-6.1% 
-4.4% 

Table  7.2.2  (c) 


Volumes  computed  with 
the  corrections  (STPD) 

Volumes  computed  without 
the  corrections  (ATPS) 

Trial 

Insp. 

(mL) 

Insp. 
error 

Expr. 
(mL) 

Expr. 
error 

Insp. 
(mL) 

Insp. 
error 

Expr. 
(mL) 

Expr. 
error 

1 
2 
3 
4 
5 
6 

655.0 
582.8 
581.2 
560.2 
570.2 
562.9 

-17.0% 
-4.1% 
-3.8% 
-0.0% 
-1.8% 
-0.5% 

608.1 
570.5 
565.6 
565.6 
568.0 
561.2 

-8.6% 
-1.9% 
-1.0% 
-1.0% 
-1.4% 
-0.2% 

805.2 
709.0 
685.3 
680.4 
669.0 
669.9 

-24.5% 
-9.6% 
-5.9% 
-5.2% 
-3.4% 
-3.5% 

737.0 
686.0 
668.0 
670.3 
669.5 
668.5 

-13.9% 
-6.0% 
-3.2% 
-3.6% 
-3.5% 
-3.3% 
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Figure  7.2.1   Typical   CBRMS   signals   obtained  from  the   Harvard   respirator 
(room  air  cycling  through  the  PTM) . 


With  both  method  A  and  method  B  the  errors  generated  using  room  air  as 
the  flow  gas  are  minimal.  With  the  exception  of  two  of  the  error  values  of 
method  B,  all  error  values  are  less  than  or  equal  to  1%.  This  indicates  that 
the  volume  calculations  of  both  methods  are  accurate  under  flow  conditions 
which  are  the  same  for  both  data  collection  and  PTM  calibration. 

The  errors  increase  when  the  flow  gas  is  altered  from  the  conditions  of 
calibration.  However,  the  increase  is  much  less  with  method  A  than  with 
method  B.  In  all  cases  the  error  associated  with  method  A  is  significantly 
less,  1.6%  to  8.6*  less  with  an  average  4.1%  less,  than  the  error  of  method 
B.  These  results  show  that  method  A  is  better  for  calculating  volumes  where 
the  flow  gas  conditions  are  different  during  data  collection  than  during 
calibration,  as  is  the  case  with  expiratory  gases. 

In  summary,  both  method  A  and  method  B  provide  accurate  volume  calcula- 
tions when  the  flow  conditions  are  the  same  during  data  collection  as  during 
calibration.  However,  once  the  flow  conditions  change  from  those  of  calibra- 
tion method  A  provides  more  accurate  volume  calculations.  This  increased 
accuracy  is  due  to  the  correction  of  the  flow  to  constant  conditions  prior  to 
integration.   Method  A  provides  the  means  for  accurate  calculation  of  volumes 
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under  varying  flow  conditions. 

7.3   Subject  Exercise  Data 

Two  healthy  male  subjects  performed  exercise  on  a  bicycle  ergometer. 
The  CBRMS  collected  data  from  these  subjects  and  the  results  are  discussed 
here.  The  features  of  the  system  are  pointed  out  and  steady-state  exercise 
measurements  discussed.  The  discussion  is  qualitative  in  nature  as  no  resp- 
iratory measurements  from  another  measurement  system  are  available  to  make  a 
quantitative  comparison. 

The  subjects  performed  exercise  at  four  work  levels:  (1)  50  Watts,  (2) 
100  Watts,  (3)  125  Watts,  and  (4)  175  Watts.  The  subjects  exercised  at  each 
work  level  four  times  (on  different  days)  for  a  total  of  sixteen  experiments. 
The  first  experiment  at  each  level  was  to  allow  the  subject  to  become 
accustomed  to  the  system.  The  data  collection  regimen  is  outlined  here 
(refer  to  the  block  diagram  of  the  CBRMS,  Figure  2.2.1). 

1.  The  subject  was  fitted  with  the  mask  and  placed  on  the  ergometer. 

2.  Monitoring  of  the  subject's  heart  rate  began  1  minute  prior  to  the 
collection  of  data  with  the  Amerec  150  belt  telemetry  system. 

3.  At  the  60  second  mark  the  CBRMS  began  collecting  samples  of  the 
respiratory  data. 

4.  Exercise  began  at  the  100  second  mark  and  continued  to  the  420  second 
mark  for  the  50,  100,  and  125  Watt  e  ercise  levels  and  to  the  360  second 
mark  for  the  175  Watt  exercise  level. 

5.  The  CBRMS  continued  collecting  data  until  the  540  second  mark  (a  total 
of  8  minutes  of  respiratory  data). 

6.  The  heart  rate  was  monitored  to  the  660  second  mark. 

Shown  in  Figures  7.3.1  thru  7.3.5  are  examples  of  the  output  of  the 
CBRMS.  An  example  of  the  average  output  is  shown  in  Figure  2.2.2  (page  10). 
Example  respiratory  signals  for  each  of  the  work  loads  are  shown  in  Figure 
7.3.1.  This  window  covers  the  time  frame  from  280  seconds  to  480  seconds  and 
includes  the  steady-state  exercise  and  the  off-transient  exercise  data. 
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8. 


(a)  SO  Watt  exercise 


(b)  100  Watt  exercise 
Fignre  7.3.1   Example  respiratory  signals. 
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(c)  125  Watt  exercise 


(d)  175  Watt  exercise 
Figure  7.3.1   (continued) 
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5  .s~,i(,.ndo',l  period;    10  s  Window  wldthj    Bad  breaths  omitted 
100  Seconds:   Exercise  Began 
420  Seconds:   Exercise  Ended 

(b)  Subject  B;  125  Watt  Exercise 

Figure  7.3.2      Graphical    display  of   tJie   respiratory  parameters. 
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Figure  7.3.2   (continued) 
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Figure  7.3.3   V,>  and  V™   responses 
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Figure  7.3.3   (continued) 
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Shown  in  Figure  7.3.2  are  graphical  displays  of  several  respiratory 
parameters.  The  first  three  figures  show  the  window  averaging  technique  and 
the  final  figure  shows  the  averaging  of  three  consecutive  breaths.  In  all 
cases  the  'Bad  breaths',  breaths  having  an  inspiratory  or  an  expiratory  tidal 
volume   of  less  than  0.4  L,   have  been  omitted  in  the   averaging  technique. 


Typical   V, 


°2 


and 


OOt   responses  are  shown  in  Figure  7.3.3   for  the  four 


exercise  levels.   The  window  averaging  technique  was  used. 

Tabular  outputs  using  window  averaging  are  shown  in  Figures  7.3.4  and 
7.3.5.  The  alveolar  O2  consumption,  CO2  production,  and  lung  volume 
parameters  in  these  figures  are  equal  to  the  corresponding  values  measured  at 
the  mouth.  These  parameters  contain  no  additional  information  but  have  been 
built  into  the  display  for  future  expansion  [12]. 

The  average  results  from  a  window  of  steady-state  data  (90  second 
window  centered  about  330  seconds)  are  shown  in  Table  7.3.1  and  Figures  7.3.6 
thru  7.3.10.  These  average  values  do  not  emphasize  the  most  important  advan- 
tage of  the  CBRMS  over  the  expired  gas  collection  technique,  the  ability  to 
monitor  transient  respiratory  responses.  However,  these  values  do  allow 
comparison  to  those  of  other  researchers  and  to  those  obtained  using  the 
expired  collection  technique. 


The  direct  comparison  of  these  data  to  the  data  from  expired  gas 
collection  technique  is  not  possible  as  such  data  were  not  collected  from  the 
subjects.  However,  the  average  ventilation  values  (V«  ,  V™  ,  and  V)  agree 
favorably  to  the  values  published  by  other  researchers  [6,13,14]. 


Table  7.3.1  Average   respiratory  parameters.   Refer  to  the   text  for  an 
explanation  of   these  low  respiratory  quotient  values  and   the 
difference  between  the  inspiratory  and  expiratory  ventilation. 


(a) 

Subject  A 

Work 

02 

C02 

Resp. 

Insp. 

Expr. 

Insp. 
Tid.  Vol. 

Expr. 

Load 

Cons. 

Prod. 

Quot. 

Vent. 

Vent. 

Tid.  Vol. 

(W) 

(L/min) 

(L/min) 

(L/min) 

(L/min) 

(L) 

(L) 

(STPD) 

(STPD) 

(BTPS) 

(BTPS) 

(BTPS) 

(BTPS) 

50.0 

1.16 

0.93 

0.80 

32.2 

31.0 

1.37 

1.32 

50.0 

1.16 

0.91 

0.78 

31.7 

30.5 

1.21 

1.16 

50.0 

1.12 

0.85 

0.76 

30.2 

28.9 

1.26 

1.2 

100.0 

2.01 

1.57 

0.78 

47.4 

44.8 

1.97 

1.87 

100.0 

2.06 

1.41 

0.68 

48.4 

45.0 

1.57 

1.46 

100.0 

2.27 

1.55 

0.68 

47.5 

43.2 

1.79 

1.63 

125.0 

2.43 

1.88 

0.77 

55.0 

51.4 

2.33 

2.18 

125.0 

2.44 

1.89 

0.78 

56.5 

52.8 

2.22 

2.08 

125.0 

2.71 

1.84 

0.68 

57.6 

52.6 

1.91 

1.74 

175.0 

3.64 

2.67 

0.73 

88.4 

80.6 

2.53 

2.32 

175.0 

3.84 

2.85 

0.74 

93.6 

85.6 

2.64 

2.42 

175.0 

3.62 

2.56 

0.71 

78.8 

71.3 

2.63 

2.38 
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Table  7.3.1    (b)    Subject  B 

Work 

02 

COS 

Resp. 

Insp. 

Expr. 

Insp. 
Tid.    Vol. 

Expr. 

Load 

Cons. 

Prod. 

Guot. 

Vent. 

Vent. 

Tid.   Vol. 

(W) 

(L/min) 

(L/min) 

(L/min) 

(L/min) 

(L) 

(L) 

(STPD) 

(STPD) 

(BTPS) 

(BTPS) 

(BTPS) 

(BTPS) 

50.0 

1.15 

0.83 

0.72 

28.5 

27.6 

1.1 

1.07 

50.0 

1.09 

0.80 

0.74 

28.3 

27.3 

1.03 

1 

50.0 

1.11 

0.80 

0.72 

28.2 

27.1 

1.11 

1.06 

100.0 

2.09 

1.45 

0.69 

45.1 

41.5 

1.54 

1.41 

100.0 

2.46 

1.55 

0.63 

48.0 

42.5 

1.63 

1.44 

100.0 

1.86 

1.43 

0.77 

43.1 

40.7 

1.56 

1.45 

125.0 

2.45 

1.86 

0.76 

55.0 

50.8 

1.73 

1.61 

125.0 

2.64 

1.98 

0.75 

58.6 

53.8 

1.72 

1.58 

125.0 

2.59 

1.80 

0.70 

57.6 

52.3 

1.83 

1.66 

175.0 

4.60 

2.77 

0.60 

98.2 

84.1 

2.31 

1.98 

175.0 

4.23 

2.74 

0.65 

98.2 

86.7 

2.24 

1.98 

175.0 

4.38 

2.34 

0.54 

99.1 

85.0 

2.21 

1.9 

Of  particular  concern  is  the  difference  between  the  inspiratory  volume 
and  expiratory  volume  at  the  higher  work  levels.  The  inspiratory  values  are 
from  6*  to  14*  larger  than  the  expiratory  values.  This  is  obviously  not 
physically  possible.  The  inspiratory  and  expiratory  values  should  be  nearly 
equal.  These  large  errors  lead  to  the  possibility  of  the  inspired  0,  being 
overestimated  with  respect  to  the  expired  Oj  causing  the  volume  of  0, 
exchanged  to  be  to  be  overestimated.  Also,  the  volume  of  CO,  expired  is 
possibly  underestimated  which  would  cause  the  volume  of  CO,  exchanged  to  be 
underestimated.  These  two  errors  combined  can  cause  the  respiratory 
quotient,  R,  to  be  significantly  underestimated.  This  is  apparently  the  case 
as  the  R  values  should  be  nearly  equal  to  unity. 

The  cause  of  this  error  can  be  attributed  to  the  nonlinearity  of  the 
PTM  differential  pressure  versus  flow.  While  it  was  shown  that  the  CBRHS 
could  accurately  calculate  volumes  from  the  PTM  differential  pressure, 
dependency  of  these  calculations  flow  was  not  investigated.  The  flow  i^tes 
of  the  subjects  at  the  higher  work  loads  are  significantly  higher  than  the 
flow  rates  generated  by  the  Harvard  respirator.  This  is  apparent  by 
comparing  the  flow  signal  of  Figure  7.2.1  to  those  of  Figure  7.3.1. 

The  ability  of  the  Fleisch  #2  PTM  to  be  linear  at  the  higher  flow  rates 
is  suspect.  In  addition,  the  particular  PTM  used  in  this  study  had  a  defect 
in  the  screen,  possibly  causing  additional  nonlinearities.  To  correct  this 
problem  other  PTMs  should  be  investigated.  Also  the  flow  rate  produced  by 
the  Harvard  respirator  should  be  increased  by  increasing  the  stroke  volume. 
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Figure  7.3.10  Respiratory  Quotient,   R,  versus  work  load.   Refer  to  tie  text 
for  an  explanation  of  these  low  respiratory  quotient  values. 
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Chapter  VIII.   CONCLUSIONS 

Through  the  enhancement  of  the  CBRMS  first  developed  by  Creel  [4]  and 
modified  by  Riblett  [13]  with  a  temperature  and  viscosity  corrected  flow  and 
additional  data  display  methods,  the  following  conclusions  have  been  reached. 

1.  A  flow  signal  under  STPD  conditions  can  be  computed  from  a  PTM  differ- 
ential pressure  signal,  temperature  signal,  and  fractional  composition 
signals.  The  flow  signal  is  calculated  via  Poiseuille's  law  from  the 
measured  signals  and  the  appropriate  assumptions.  This  flow  signal  can 
be  converted  to  STPD  conditions  using  the  respiratory  temperature  signal 
and  calculation  of  the  water  vapor  content.  The  accuracy  of  volume 
calculations  made  with  this  flow  signal  are  increased  over  those  made 
assuming  the  flow  directly  proportional  to  the  PTM  differential  pressure 
signal. 

2.  A  temperature  transducer  based  on  0.001  inch  diameter  thermocouple  can  be 
designed  to  produce  a  temperature  signal  with  sufficient  accuracy  to  be 
used  in  the  calculation  of  STPD  respiratory  flow.  The  response  time  of 
this  transducer  is  sufficient  to  monitor  the  respiratory  flow 
temperature. 

3.  A  limiting  factor  in  the  every  day  usefulness  of  the  CBRMS  is  the 
relatively  large  amount  of  time  required  to  compute  the  respiratory 
parameters  from  the  recorded  respiratory  signals.  This  has  been  reduced 
with  the  addition  of  the  averaging  techniques  so  that  the  entire  set  of 
data  need  be  analyzed  one  time  only.  From  this  analysis  the  response  for 
windows  of  a  specified  time  width  for  the  entire  run  may  tj  quickly 
attained.  However,  once  new  data  have  been  read  in  or  the  computer  has 
been  turned  off  the  breath-by-breath  respiratory  parameters  are  lost. 
Therefore,  additional  display  of  the  results  is  not  possible  without  the 
re-analysis  of  the  data.  The  reduction  of  this  problem  is  discussed  in 
the  Chapter  IX,  Suggested  Areas  for  Future  Development. 

4.  The  addition  of  the  breath  averaging  techniques  and  the  display  of  the 
results  enhances  the  ability  of  the  researcher  to  quickly  investigate 
transient  responses.  By  increasing  the  size  of  the  window  steady-state 
responses  may  also  be  investigated  without  the  time  consuming  task  of  re- 
analyzing the  data. 

5.  The   respiratory   parameter   calculations  require   accurate   transducers. 
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The  calculations  are  especially  sensitive  to  errors  in  the  flow  signal. 
Possible  errors  in  the  flow  are  reduced  with  the  addition  of  temperature 
and  viscosity  corrections.  However,  essential  to  these  calculations  is 
the  attainment  of  a  valid  differential  pressure  signal.  The  linear 
relationship  between  the  differential  pressure  and  the  flow  (under 
constant  flow  gas  conditions)  for  the  particular  Fleisch  #2  PTM  used  in 
this  study  is  suspect  at  the  higher  flow  rates. 

The  application  of  structured  programming  techniques  to  the  CBRHS 
programs  enhances  the  readability  and  maintainability  of  the  code. 
Structured  programming  allows  large  programs  to  be  broken  into  functional 
units.  This  division  of  functions  allows  individual  problems  to  be 
placed  within  one  program  block  (procedure  or  subroutine). 
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Chapter  IX.   SUGGESTED  AREAS  FOR  FUTURE  DEVELOPMENT 

The  present  CBRMS  is  a  very  useful  tool  in  assessing  respiratory 
function  but  there  are  several  additional  improvements  which  would  extend  the 
system  capabilities  and  reduce  the  time  needed  to  obtain  the  analyzed 
results.  The  following  improvements,  most  of  which  are  software  oriented, 
would  enhance  the  system  further  and  extend  the  ability  of  the  researcher  or 
clinician  to  interpret  the  results. 

9.1   System  Improvements 

1.  Apply  the  improvements  of  the  Basic  2.0  Language  Extensions.  These 
extensions  to  the  Basic  2.0  language  (the  language  currently  used  by  the 
Basic  routines)  provide  a  large  number  of  additional  commands.  These 
improvements  allow  for  such  things  as  support  of  the  real  time  clock 
which  would  allow  dates  and  times  to  be  printed  on  all  hard  copy  output, 
vastly  improved  editing  features,  the  ability  to  send  input  and  output 
through  an  internal  memory  buffer  (more  on  this  improvement  will  be 
discussed  in  number  3),  and  many  other  features. 

2.  Obtain  the  CSUB  (Compiled  SUBroutine)  preparation  utility  from  Hewlett- 
Packard  (part  number  09800-10640).  The  preparation  utility  allows  sub- 
routines written  in  Pascal  to  be  called  from  Basic.  The  CSUB  subroutines 
appear  the  same  to  the  calling  Basic  routine  as  the  standard  SUB  sub- 
routines. This  feature  would  allow  Pascal  programs  to  be  called  from 
Basic  and  the  passing  of  parameters  between  Basic  and  Pascal.  This  would 
conceivably  eliminate  the  time  consuming  problem  of  converting  the  ASCII 
format  data  collected  with  the  Pascal  system  to  the  numeric  format  of  the 
Basic  system.  In  addition,  the  time  consuming  iterative  portions  of  the 
Basic  programs  could  be  converted  to  the  much  faster  Pascal  subroutines. 

A  prime  example  is  the  computation  of  the  breath-by-breath  binary 
volumes.  The  computation  of  the  flow  calibration  factors  involves  inte- 
grating 4000  samples  of  flow  and  requires  approximately  35  seconds  to 
execute.  The  same  amount  of  data  using  the  Basic  ANALYSIS  program  (the 
integration  loops  in  the  two  programs  are  nearly  identical)  requires  100 
seconds  to  execute. 

This  feature  is  briefly  discussed  in  the  Basic  Language  Reference  manual 
[23]  (under  the  CSUB  command)  but  the  potential  is  very  evident.  This 
feature  would  allow  the  best  of  the  two  operating  systems  to  be  used;  the 
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user  and  programmer  friendliness  of  the  Basic  system  and  the  speed  and 
versatility  of  the  Pascal  system. 

3.  Upgrade  the  DECWriter  II  printer.  There  is  an  upgrade  kit  available  for 
the  DECWriter  II  which  would  increase  the  printing  speed,  increase  the 
band  rate,  and  provide  a  print  buffer.  However,  other  possibilities 
exist  for  reducing  the  time  the  computer  is  tied  up  with  the  printing  of 
output.  A  print  buffer  could  be  designed  and  built  or  the  TRANSFER 
buffer  command  available  with  the  Basic  2.0  Language  Extensions  package 
could  be  used. 

While  the  printer  buffer  would  not  increase  the  speed  of  the  printer  it 
could  greatly  reduce  the  amount  of  time  the  computer  is  tied  up  sending 
information  to  the  printer.  By  increasing  the  baud  rate  that  the  com- 
puter sends  information  to  the  DECWriter  the  computer  would  be  tied  up 
less  and  the  operator  could  continue  with  other  sections  of  the  ANALYSIS 
program  while  the  results  are  being  printed.  The  buffer  should  also  have 
the  ability  to  simulate  form  feeds  and  skip  over  the  perforations  of  the 
computer  paper  (accomplished  by  keeping  track  of  the  number  of  lines 
printed  on  the  page)  and  a  number  of  other  useful  characteristics  avail- 
able on  more  modern  printers.  The  article  by  Bono,  Build  a.  Printer 
Buffer  [3],  should  be  referred  to  as  a  good  starting  point  for  the  design 
and  construction  of  such  a  buffer. 

The  Extensions  package  simulates  the  use  of  a  printer  buffer  (allowing 
the  computer  to  continue  other  operations  while  the  relatively  slow  I/O 
operations  occur  simultaneously)  with  the  TRANSFER  command.  The  TRANSFER 
command  provides  the  means  for  a  variety  of  input/output  operations  to 
occur  simultaneously  with  program  execution.  The  Basic  Interfacing 
Techniques  reference  [22]  is  a  good  guide  for  the  use  of  the  TRANSFER 
command.  This  command  can  also  be  applied  to  other  I/O  operations,  such 
as  reading  and  writing  data  files. 

4.  Purchase  commercially  available  thermocouple  assemblies.  Omega  Engi- 
neering Incorporated  [24]  has  thermocouple  probe  assemblies  available 
with  the  sensing  junction  exposed.  These  probes  would  be  more  mechan- 
ically rigorous. 

5.  Conduct  studies  on  thermocouples  of  larger  diameter  to  determine  if  the 
larger  thermocouple  has  a  fast  enough  response  time  to  monitor  the  respi- 
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ratory  temperature  signal.  The  larger  size  would  provide  the  obvious 
advantage  of  possessing  a  more  rugged  temperature  probe.  As  pointed  out 
in  the  conclusions  of  Chapter  III,  the  sensitivity  of  the  computed  flow 
to  small  errors  in  temperature  is  very  small.  This  would  indicate  that 
slower  responding  temperature  sensors  would  not  have  a  great  detrimental 
effect   on  the   calculation  of   the  STPD  flow. 

6.  Use  a  linear  relationship  between  the  sampled  data  and  the  temperature. 
The  type  E  thermocouple  has  nearly  a  linear  voltage-temperature  relation- 
ship. The  small  errors  in  using  a  linear  fit  would  not  significantly 
effect  the  calculation  of  the  STPD  flow.  Possibly  more  error  is  intro- 
duced by  using   three   calibration  points   rather   than  two. 

9.2     Storage   and  Extended  Analysis   of   the  Breath-bv-Breath  Results 

This  extension  has  been  separated  from  the  other  system  improvements 
because  of  the  importance  of  being  able  to  quickly  and  systematically  analyze 
the  breath-by-breath  results  of  various  subjects  or  various  exercise  levels. 
The  goal  of  this  improvement  is  to  be  able  to  obtain  the  average  response  of 
a  subject,  or  a  number  of  subjects,  to  a  given  exercise  regimen.  The  fore- 
seen steps  to  building  a  package  to  analyze  sets  of  the  breath-by-breath  data 
are   outlined  below. 

1.  Alter  the  Display_results  subroutine  of  the  ANALYSIS  program  to  store  the 
breath-by-breath  values,  V,^,  V^,  vt,  etc.,  which  are  stored  in  the  two 
dimensional  array  Resp_var,  (construction  of  the  Resp_var  array  is  dis- 
cussed in  Appendix  VI,  Section  A6.5) .  This  could  be  done  by  adding  a 
'Store  Respiratory  variables'  option  to  the  'Plot  Values'  and  'Print 
Values'  menu.  This  would  allow  many  operations  to  be  performed  on  the 
breath-by-breath  results  without  the  time  consuming  need  to  analyze  the 
respiratory  data  every  time.  Care  should  be  taken  in  defining  a  standard 
format   for    storing   these   breath-by-breath   data! 

2.  Develop  a  routine  which  will  average  the  average  values  obtained  with  the 
window  averaging  routine  from  several  exercise  runs  or  subjects  (using 
data  obtained  from  the  same  exercise  regimens).  This  would  allow  average 
response  and  the  standard  deviation  for  a  specific  point  in  time.  Note 
that  the  statistics  of  this  technique  may  become  a  complex  problem  (or 
remain  trivial)  as  different  subjects  may  have  a  different  number  of 
breaths      in     a   given  window.        This  would   give    the      two      averaged     values 
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different  statistical  significance.  However,  if  the  subjects  have  nearly 
identical  respiratory  frequencies  and  the  window  is  wide  enough  this 
should  not  be  a  problem. 

Shown  in  Figure  9.2.1  is  a  flowchart  that  could  be  used  to  implement 
this  idea.  One  approach  for  storing  the  respiratory  variables  is  to  use  an 
array  similar  to  the  respiratory  variable  array  (Resp_var)  described  in 
Appendix  VI,  Section  A6.5.  However;  the  array  would  contain  a  third  dimen- 
sion representing  the  subject  in  addition  to  the  two  dimensions  discussed; 
breath  number  and  respiratory  variable.  The  current  window  averaging  routine 
could  be  used  to  accomplish  the  window  averaging  of  a  window  of  data.  Slight 
modifications  would  be  needed  to  handle  the  additional  dimension. 

Other  operations  could  be  substituted  for  the  averaging  of  several 
subjects'  values  for  a  window  in  time.  Such  things  as  plotting  the  average 
value  obtained  from  a  window  and  the  average  value  obtained  from  the  same 
window  of  another  run  would  allow  a  comparison  of  the  response  of  two  (or 
more)  runs.  Care  should  be  taken  and  good  program  development  techniques 
should  be  followed  in  the  design  of  this  routine  so  that  future  modifications 
can  be  easily  implemented! 
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Window 


Compute  Average   and  display   it   or 
retain  the  value   for   later   display 


Figure  9.2.1     Flowchart     for     averaging     the     breath-by-breath     results     from 
several    subjects   or   different    runs   of   the    same    subject. 
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APPENDIX  I.   DEFINITION  OF  ACRONYMS 

The   acronyms  used   throughout   this  thesis  are   defined  within  this 
appendix. 

ATPS  -  Ambient  Temperature  and  Pressure;  Saturated 

BTPS   -  Body  Temperature  and  Pressure;  Saturated 

CBRMS   -  Computer  Based  Respiratory  Measurement  System 

DAM  -  Data  Acquisition  Module 

Px  -  Fractional  concentration  of  gas  x 

GMS  -  Gas  Mass  Spectrometer 

ITP  -  Instantaneous  Temperature  and  Pressure 

K(Pb'FH20'T'  "  ITP  t0  STPD  conversion  factor 

PTG  -  Pneumotachograph 

PTM  -  Pneumo tachometer 

Pj,  -  Barometric  pressure 

Px  -  Partial  pressure  of  gas  x 

STPD  -  Standard  Temperature  and  Pressure;  Dry 

T  -  Temperature  or  sampling  period 

Tj  -  Sensing  junction  temperature 

Tfe£  -  Reference  junction  temperature 

V  -  Volume 

Vjq  -  Thermocouple  voltage 

Vj  -  Expiratory  tidal  volume 

V^j  -  Inspiratory  tidal  volume 

V  -  Flow  rate 

TC02  "  ^°2   production  rate 

Vg  -  Expiratory  ventilation 

vj  -  Inspiratory  ventilation 

Vq-  -  O2  consumption  rate 

u  -  Viscosity 

Hr  -  Relative  viscosity 

l»x  -  Viscosity  of  gas  x 

AP  -  Differential  pressure 
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APPENDIX  II.   PRINCIPLES  OF  OPERATION  OF  THE 
PERKIN-ELMER  1100  MEDICAL  GAS  ANALYZER 

The  Gas  Mass  Spectrometer  used  in  these  experiments  is  the  Perkin-Elmer 
1100  Medical  Gas  Analyzer.  This  GMS  has  a  rapid  response  time  and  is  con- 
figured to  measure  the  percentage  concentration  of  0,,  CO.,  and  N-;  two 
features  which  make  it  ideal  for  monitoring  normal  respiratory  gases.  The 
principles  of  operation  are  explained  very  well  in  the  Perkin-Elmer  manual. 
A  brief  description  of  the  GMS's  signal  processing  circuitry  is  given  in  this 
appendix. 

The  Perkin-Elmer  100  is  a  magnetic  sector  type  of  GMS.  A  magnetic 
sector  GMS  introduces  a  small  sample  of  gas  to  an  electron  beam  which  causes 
a  fraction  of  the  gas  molecules  to  lose  one  or  more  electrons  and  become 
positively  charged  ions.  The  ions  are  acted  upon  by  a  magnetic  field  at 
right  angles  to  the  direction  of  ion  travel.  This  causes  the  ion  of  the 
various  gases  to  bend  in  a  circular  arc  with  a  radius  proportional  to  their 
mass,  thereby  separating  the  ions.  The  individual  ions  then  collide  with 
individually  located  collectors.  The  collectors  produce  outputs  that  are 
proportional  to  the  number  of  ions  hitting  them  and  therefore,  proportional 
to  the  concentrations  of  the  particular  gases  in  the  air  sample. 

A  functional  block  diagram  of  the  signal  amplifiers  is  shown  in  Figure 
A2.1.  The  outputs  of  the  collector  circuits  are  applied  to  the  calibration 
network.  The  calibration  network  adjusts  the  gain  of  the  individual  channels 
and  cancels  the  interference  between  gases  which  occur  when  a  portion  of  one 
gas  excites  the  collector  of  another  gas.  The  calibration  network  outputs 
enter  automatic  gain  amplifiers  (AGO  with  outputs  connected  to  a  summing 
junction.  Also  connected  to  the  summing  junction  are  two  fixed  signals  which 
are  set  by  the  operator  using  external  potentiometers.  The  fixed  signals  are 
the  fractional  content  of  the  various  gases  in  room  air  whose  concentration 
remains  a  constant,  and  the  fractional  content  of  water  vapor.  The  frac- 
tional content  of  water  vapor  switches  between  to  set  values,  the  fractional 
content  of  the  inspirate  gas  and  the  fractional  content  of  the  expirate  gas. 
The  switching  is  triggered  by  the  F^   signal. 
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Figure  A2.1   The  AGC  block  diagram  of  the  GMS. 

The  output  of  the  summing  junction  is  compared  with  the  value  of  unity 
creating  an  error  value.  This  error  value  controls  equally  the  gain  of  the 
AGC  blocks  forcing  the  error  value  to  zero.  The  output  of  the  summing  block 
is 

*%  +  F»C02  +  F»02  +  F»H20I(E)  +  "fixed  "  1  A2.1 

where  Fwx  denotes  the  concentration  of  gas  x  in  the  wet  gas  (gas  containing 
water  vapor).  Of  particular  interest  is  the  fractional  content  of  the 
various  gases  neglecting  the  volume  of  water  in  the  gas,  the  dry  gas 
concentrations.  This  can  be  found  by  dividing  the  volume  of  gas  i  by  the 
volume  of  the  gas  without  any  water  vapor,  the  dry  gas  volume.  The  volume  of 
the  dry  gas  is  the  total  volume  of  the  wet  gas  minus  the  volume  of  water 
vapor  in  the  gas. 


Vd  =  Vw  -  FwH2„Vw  =  Vwd  -  FwH20) 


so  that  the  dry  fractional  content  of  gas  x  is 
Vw,        Fw  Vw 


Vd 


Fw 


V»<*  -  F»H20> 


(1  "  F»H20> 
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^x 
Fi  ■  — " A2.2 

where 

Fx  -  fractional  content  of  gas  x  in  the  dry  gas 
F»x  -  fractional  content  of  gas  x  in  the  wet  gas 
Vwx  -  volume  of  gas  x  in  the  wet  gas 
Vw  -  volume  the  wet  gas 
Vd   -  volume  the  dry  gas. 

The  GMS  can  be  made  to  read  directly  the  dry  concentrations  by 
adjusting  the  fractional  water  vapor  content  potentiometers  to  zero.  This 
causes  the  gain  on  the  various  channels  to  increase  (all  gains  increase  the 
same  amount)  until  the  error  value  is  zero.  This  gain  increases  by  the 
factor  1/(1  -  FH  „)  so  that  the  outputs  are  equal  to  the  dry  gas  concen- 
trations. The  wet  gas  concentrations  may  then  be  found  from  the  inverse  of 
Equation  A2.2. 

With  the  water  vapor  potentiometers  set  to  zero  it  is  necessary  to  only 
measure  the  outputs  of  two  channels  to  obtain  the  value  of  all  three,  since 
the  individual  outputs  are  forced  to  sum  to  one.  For  instance,  the  FN  value 
may  be  found  by  measuring  the  Fq   and  Fc0   values. 

FN2  "  1   ~   F02  "  FC02  *  Ffixed 

Assuming  the  fixed  value  is  approximately  zero, 

FN2  -  1  "  F02  "  FC02- 

With  the  current  studies  the  GMS  is  adjusted  to  read  the  dry  fractional 
content  values.  The  fractional  content  of  nitrogen  is  found  from  the  above 
equation  and  the  fractional  content  of  water  vapor  is  found  by  other  means, 
namely  the  temperature  signal  and  ambient  conditions. 
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APPENDIX  III.   DERIVATION  OF  THE  RESPIRATORY  PARAMETER  CALCULATIONS 

A  derivation  of  the  gas  volume  calculations  is  presented  here.  The 
calculations  are  based  on  the  dry  fractional  concentration  signals  of  oxygen 
and  carbon  dioxide,  the  flow  temperature  signal,  and  the  PTM  differential 
pressure  signal. 

The  first  step  in  calculating  the  breath-by-breath  volumes  is  to 
convert  the  instantaneous  differential  pressure  obtained  from  the  PTM  to  the 
instantaneous  flow.  This  conversion  is  accomplished  with  Poiseuille's  law 
which  describes  laminar  flow  through  a  tube.  The  PTM  can  be  modeled  as  a 
single  tube  so  that  Poiseuille's  law  holds.   The  law  is  stated  thus: 

AP  k 

V  =  •  5-  A3.1 

R      100  (L/cm3) 


where 


V  =  flow  through  the  tube  (L/s) 

AP  =  pressure   difference  between  one  end  of  the  tube  and  the  other 
end  (torr) 

R  ■  effective  resistance  of  the  PTM  (dyne-sec/cm5 (10~6) ) 

k  =  7.5062  (10~6)  ((dyne/cm1) /torr) 


The  resistance  is  given  by: 


where 


u81 

J-  A3. 2 


|i  =  viscosity  of  the  gas  (uP) 

1  =  effective  length  of  the  PTM  (cm) 

r  =  effective  radius  of  the  PTM  (cm) 

The  effective  PTM  length  and  the  radius  are  considered  constant  and 
the  gas  viscosity  is  determined  from  the  gas  composition  signals,  the  tem- 
perature signals,  and  the  ambient  conditions  [19].  The  linear  approximations 
for  the  viscosity  of  individual  gases  over  the  respiratory  temperature  range 
are  shown  in  Table  A3.1.  Wilke's  equation  can  be  used  to  calculate  the 
overall  viscosity  of  mixtures  of  these  gases  [8,9,20].  The  general  form  of 
Wilke's  equation  is  given  by: 


4 
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b*  j^ij 
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where  P±j  is  a  dimensionless  constant  defined  by  Wilke  [20]  as 


and 


%  = 

166.6 

+     0.454  T 

"o?    = 

191.0 

+     0.616  T 

"C02  = 

137.6 

+     0.450  T 

"Hao" 

132.6 

+     0.570  T 

[1  +  (ni/u1)1/2(Mi/Mi)1/4]2 

h*   = It-til*^)!"* h3A 

u.  -  the  overall  gas  viscosity  (uP) 

^Kj)  "  tIle  viscosity  of  gas  i(j)  (uP)  at  the  temperature  T 

F"i(j)  _  the  fractional  concentration  of  gas  i(j)  in  the  wet  gas 

Mj(j)  -  the  molecular  weight  of  gas  i(j). 

Table   A3.1.   Linear   approximation  of 
pare  gas  viscosities  between  20  C-40°C 

[10] 

[10] 

[10] 

[19] 

where 

ux  -   the  viscosity  of  gas  x  (nP) 

T  -   the  gas  temperature  (°C) 


The  fractional  gas  concentrations  of  the  wet  gas  may  be  calculated  from  Fn  „ 

H20 

and   the   dry  gas  concentrations  measured  from  the   mass   spectrometer.    The 
fractional  concentration  of  water  vapor  is  given  by 

FH20  "  PH20/PB 
From  Appendix  II  the  wet  gas  concentrations  are 

**02     "  F02  <  1  "  FH20>  A3. 5 

FwC02  "  FC02(  1  ~   FH20>  A3. 6 

**N2   =  (1-F02-FC02><  1  '   FH20>  A3. 7 

The  flow  obtained  from  Equation  A3.1  using  the  calculated  PTM  resist- 
ance obtained  from  Equations  A3. 2  thru  A3. 7  and  Table  A3.1  is  under  ITP 
conditions.  Consider  the  respiratory  ITP  flow,  temperature,  and  F„  0  signals 
of  Figure  A3. 2.  The  flow  is  divided  into  subintervals  of  duration  At  with 
points  tj  in  the  center  of  each  snbinterval.  The  rectangle  of  height  V(t-) 
has  an  ITP  volume,  in  liters,  of 


VjUTP)  =  V(tt)  At 


A3. 3 


Flow  (L/sec) 


Figure  A3. 2  The  V,  V  temperature,  and  FH  „  signals. 

If  At  is  sufficiently  small  so  that  the  temperature  and  F„  ~  over  that 
interval  are  constant,  then  the  volume  of  the  dry  gas  is  the  total  volume 
minus  the  volume  of  the  water  vapor  and  is  given  by 

dry  volume  =  Vi(ITP)  -  V.(ITP)'FH  „  =  VjUTPJ-tl  -  FH  Q] 

Using  the  ideal  gas  law,  this  volume  under  STPD  conditions  is  given  by 

273  15      P 
V^STPD)  =  VjUWtl  -  FH  „]■ 


273.15  +  T, 


This  reduces  to  the  familiar  form  of 


VjCSTPD)  =  VjdTP)  • 


273.15 


273.15  +  T. 


760 


rH20 


760 
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Since  the  individual  volumes  are  under  the  same  conditions,  namely  STPD 
conditions,  they  may  be  summed.  Writing  the  Riemann  sum  of  these  individual 
STPD  volumes  over  the  inspiratory  and  the  expiratory  cycles  and  taking  the 
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limit  as  At  goes  to  zero  results  in: 


lim 
At 


%  ^ I  *(ti'  K(Pb'FH2O.T)  At 


These  expressions  become  integrals  in  the  limit.  The  values  of  these  inte- 
grals are  equal  to  the  respective  STPD  inspiratory  and  expiratory  tidal 
volumes.   These  integrals  are 

VT(STPD)  =  J^  V  K(Pb.FH20.T)  dt  A3. 9 

VE(STPD)  =  /E  V  K(Pb,FH20,T)  dt  A3. 10 
where  the  factor  K(Pb,FH20,T)  is  defined  as: 


273  15        P 
K<VFH20.T>  -  [1  -  KH20]  .— j—  •  -^ 

This   factor  is  referred  to  as  the  ITP  to  STPD  correction  factor.    From   the 
form  of  Equations  A3. 9  and  A3. 10  a  STPD  flow  is  defined  as: 

Pb'FH20'T>  A3. 12 
The  STPD  tidal  volumes  are  then: 

VjtSTPD)  =  ^  VSTpD  dt  A3. 13 

VE(STPD)  =  /  VSTpD  dt  A3. 14 

These  tidal  volumes  are  then  scaled  to  BTPS  conditions  and  are  given  by: 

273.15  +  Tfc                        760 
Vj(BTPS)    =  VT(STPD)    ■ 5L_   .   a,    ,, 

273-15  Pb-PH20<Tb) 

VBTPS,   -  VE(STPD)    -27;;";1"      •   12 A3. lo 

273 -15  Pb   -  PH20<V 
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Consumption  of  02  and  production  of  C02  are  determined  by  multiplying 
the   STPD  flow  by  the  dry  fractional  gas  signals.    So  that  V-   and  Vm   are 
given  by: 


\     =  /i   F02  '  ^STPD  d*   "  /   P02 


E         ,,i,.u  dt         A3. 17 


VC02 


"  J   E  FC02  '  ^STPD  dt   "    /iFC02  '  ^STPD  dt       A3 -18 
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APPENDIX  IV.   A  TUTORIAL  OF  THERMOCOUPLE  PRINCIPLES 


A  thermocouple  has  the  ability  to  convert  thermal  energy  to  electric 
energy.  A  thermocouple  is  made  of  two  dissimilar  conductors  joined  together 
at  the  point  where  temperature  is  to  measured,  the  sensing  junction,  and 
terminated  at  a  point  where  both  terminals  are  at  the  same  temperature,  the 
reference  junction.  Any  conductor  having  different  temperatures  at  its  ends 
generates  a  voltage  which  is  a  function  of  the  temperature  difference.  This 
effect  can  be  modeled  by  a  battery  placed  between  the  ends  of  the  conductor. 
This  model  applied  to  a  thermocouple  is  shown  in  Figure  A4.1. 


V'.(TrTj 


V  f2<Tr  Tr«f> 


Figure  A4.1.   The  basic  thermocouple  circuit 


The   terminal   voltage,   VTC,   is   the  algebraic  sum  of   the   two   individual 
potentials,  \1    and  V2.   This  sum  yields  a  terminal  voltage  function  of 

VTC<Tj.Tref>  *  fl<V  W  "  f2(Tj-  Tref> 
If   the   two  conductors  are  made  of  the  same  material  the   two  voltage 
sources  cancel  out,   VTC  =  0.    However,   thermocouples  are  made  with  the  two 
leads   of   different  metals  such  that  one  lead  generates  a   positive   voltage 
(positive  lead)  and  the  other  lead  a  negative  (negative  lead). 

The  National  Bureau  of  Standards  (NBS)  have  specified  voltage-temper- 
ature values  for  the  most  commonly  used  thermocouples.  These  values  are 
specified  with  the  junction  temperature  at  zero  degrees  Centigrade,  the  ice- 
point.  Table  A4.1  contains  the  voltage-temperature  values  of  type  E  thermo- 
couples for  temperatures  from  16°C  to  48°C  in  4°C  increments.  This  voltage- 
temperature  relationship  can  be  modeled  with  a  second  order  polynomial. 


VTC<Tj'Tref=  0)  =  F(Tj) 


where 


Tj  +  Vc 
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Vxc<Tj,0)  =  the  thermocouple  terminal  voltage  (mV) 


Tj 


=  the  junction  temperature  (°C) . 


The  least  squares  method  [1]  is  used  to  calculate  the  polynomial  coefficients 
from  the  type  E  thermocouple  voltage-temperature  data  [24]  in  1°C  increments 
from  0  C  to  50°C.   The  polynomial  coefficients  are 

Va  =  45.85(10)~6  (mV/(°C)*) 

Vfe  =  58.65(10)~3  (mV/°C) 

Vc  -  198.07(10)"*  (mV) 

Table  A4.1  True  thermocouple  voltage,  the  second  order  thermo- 
couple voltage  estimate,  and  the  associated  error  values  versus 
sensing  junction  temperature  (reference  junction  at  0  C) . 


Sensing  junc. 
Temperature 

Terminal 
voltage 

2nd  order 

polynomial 

(milli  volts) 

2nd  order 

(degrees  C) 

(milli  volts) 

16 

0.950 

0.950 

-0.0276% 

20 

1.192 

1.191 

0.0465% 

24 

1.434 

1.434 

-0.0067% 

28 

1.678 

1.678 

-0.0128% 

32 

1.924 

1.924 

0.0104% 

36 

2.171 

2.171 

0.0069% 

40 

2.419 

2.419 

-0.0153% 

44 

2.669 

2.669 

-0.0133% 

48 

2.921 

2.921 

0.0066% 

Average  error: 
Standard  Deviation: 


-0.0006% 
0.0191% 


From  the  individual  error  values  and  their  mean  and  standard  deviation 
it  is  apparent  that  the  type  E  thermocouple's  voltage-temperature 
relationship  can  be  modeled  with  the  second  order  polynomial  over  the 
respiratory  temperature  range. 

When  the  reference  junction  is  at  a  temperature  other  than  0°C,  the 
ice-point  temperature,  the  terminal  voltage  is  equal  to 


VTC<Tj'W  "  VxctTj.O)  -  VTC(T„f,0)  =  F(Tj)  -  F(Tre£) 
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That   is,   the   terminal   voltage   is  equal  to  the    the   ice-point   voltage 
corresponding  to  the  sensing  junction  temperature  minus  the  ice-point  voltage 
corresponding  to  the  reference  junction  temperature. 

Temperature  measurement  using  the  thermocouple  is  based  on  determining 
the  sensing  junction  temperature  from  the  voltage  measured  at  the  reference 
terminals.   Solving  Equation  A4.2  for  the  sensing  junction  temperature  yields 
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Tj(VTC)  =  F-l[vTC(Tj,Tref)  +  F(Tref,0)]  =  F-^VtcCTj.T^)  +  Vref]    A4.3 

Vref  -  VTC(Tref  °> 

That  is,  the  sensing  junction  temperature  is  found  by  measuring  the  thermo- 
couple terminal  voltage,  adding  the  reference  junction  temperature's  ice- 
point  voltage,  and  taking  the  inverse  of  Equation  A4.1.  There  are  two  basic 
schemes  used  to  accomplish  the  addition  of  the  terminal  voltage  and  the  ice- 
point  voltage  corresponding  to  the  reference  junction's  temperature. 

(1)  Software  compensation.  The  reference  junction  temperature,  T  .,  is 
measured  and  used  to  determine  the  reference  voltage,  V  f.  This 
voltage  is  added  to  the  measured  terminal  voltage,  VTr(T-,T  t) ,  to 
obtain  the  voltage  VTC(Tj(0).  In  some  implementations  the  reference 
junction  is  maintained  constant  at  a  known  temperature,  which  is  used 
to  determine  the  reference  voltage. 

(2)  Hardware  compensation.  A  temperature  to  voltage  converter  having  a 
voltage-temperature  relationship  similar  to  the  thermocouple  is  used 
to  generate  a  voltage  equal  to  Vref .  This  voltage  source  is  placed  in 
series  with  the  thermocouple  so  that  the  resulting  voltage  is  equal  to 
VTC(Tj,0). 

Software  compensation,  so  named  because  the  compensation  voltage  value 
is  computed  (rather  than  generated)  and  added  to  the  measured  terminal 
voltage,  requires  a  separate  transducer  for  monitoring  the  reference  junction 
temperature  or  a  heater  to  maintain  the  reference  junction  at  a  known  temp- 
erature. This  method  requires  a  good  deal  of  additional  hardware  and  the 
transducer  would  not  be  one  independent  unit. 
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Wref) 


'ref 
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VTC(Ti.O) 
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Figure  A4.2.   Hardware  compensation  of  the  reference  junction  temperature. 

The  basic  scheme  of  hardware  compensation  is  illustrated  in  Figure 
A4.2.  The  reference  junction  transducer  is  designed  to  have  a  temperature- 
voltage  relationship,  over  the  range  of  Tfef  temperatures,  similar  to  that  of 
the  thermocouple.  The  resultant  terminal  voltage  is  equal  to  the  ice-point 
temperature  specified  by  the  NBS  for  the  temperature  T . .  This  transducer 
functions  independently  so  that  only  the  output  of  the  transducer  need  be 
measured. 
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APPENDIX  V.   OPERATION  QE.  THE  CBRMS 

A  description  of  the  CBRMS  from  the  viewpoint  of  a  system  oper- 
ator follows  in  this  appendix.  This  descript ion  wi  1  1  allow  the  oper- 
ator, who  is  assumed  to  be  familiar  with  the  Hewlett-Packard  9826 
computer  system  or  other  types  of  microcomputer  equipment,  the  ability 
to  calibrate  the  system,  collect  subject  data,  analyze  the  data  and 
display  the  analyzed  results.  While  this  appendix  is  a  'cook-book'  for 
the  operation  of  the  system,  an  understanding  of  what  is  occurring 
during  the  various  phases  is  helpful. 

The  system  layout  is  shown  in  Figure  2.2.1  with  a  detailed 
description  given  in  Chapter  II.   A  bicycle  ergometer  is  used  to  exer- 
cise the  subject  at  variouswork  loads.  The  subject  is  fitted  with  a 
mask  containing  the  three  sensing  elements  of  the  four  system  trans- 
ducers.  The  PTM  senses  flow,  the  thermocouple  senses  temperature,  and 
the  GMS  probe  samples  the  flow  air  for  sensing  fractional  oxygen 
content  and  fractional  ca rbon  d i ox i de  content.   The  four  transducer 
outputs  are  connected  to  four  channels  of  an  e  i  gh  t  -  channe  1  D.a  t  a 
Acquisition  Module  (DAM).   Under  computer  control  the  DAM  samples 
these  analog  signals.   The  DAM  passes  the  digital  values  to  the  comp- 
uter.  The  computer  can  relate  the  digital  data  to  the  analog  respir- 
atory signals  using  the  calibration  parameters  obtained  from  a 
computer  controlled  calibration  routine.   The  sampled  analog  data  are 
used  to  compute  the  various  respiratory  parameters.   These  parameters 
may  be  displayed  in  a  variety  of  formats.  An  ECG  telemetry  unit  is 
used  to  continuously  monitor  the  heart  rate  and  record  the  heart  rate 
at  30  second  intervals. 

Two  options  are  possible  at  power  up:  the  data  collection  and 
system  calibration  operating  system,  Pascal,  may  be  booted  (a  term 
synonymous  with  pulling  up  by  the  boot  straps)  or  the  analysis  and  file 
compaction  operating  system,  Basic,  may  be  booted.  The  transducers 
should  be  periodically  calibrated  according  to  their  specified  calibra- 
tion procedures  (these  calibration  procedures  are  different  from  the 
system  calibration  outlined  in  Section  A5.3). 

The  collection  of  data  and  system  calibration  occur  under  comp- 
uter control  using  programs  written  in  Pascal.  Following  calibration 
of  the  system,  the  calibration  data  are  stored  in  the  system's  mass 
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storage.      The    computer    collects    the    respiratory    data    and    stores    it    in 
the     system's    mass     storage.       The     standard    Pascal     operating     system 
routines    are    also   available    to    the   operator. 

Data  is  passed  from  the  calibration  and  data  collection  system, 
Pascal,  to  the  analysis  and  data  compaction  routines  using  the  mass 
storage  devices.  The  calibration  and  respiratory  data  are  stored  in 
ASCII  files  (the  ASCII  format  is  the  only  compatible  file  format 
between  the  two  systems).  ASCII  files  require  large  storage  space  and 
considerable  retrieval  from  storage  time.  In  order  to  minimize  storage 
space  and  retrieval  time  the  ASCII  files  are  converted  to  the  more 
compact  numeric  format  of  the  Basic  operating  system.  The  compaction 
routines  read  the  ASCII  data  from  the  mass  storage  devices,  compact  it 
(convert  the  data  to  numeric  format),  and  re-store  the  data  in  smaller 
numeri  c    f i 1 es. 

The  analysis  procedure  calculates  the  breath-by-breath  respir- 
atory parameters  using  the  collected  respiratory  data.  The  respiratory 
data  are  related  to  the  respiratory  signals  using  the  calibration 
factors.  The  respiratory  data  and  calibration  factors  are  retained  in 
memory  once  they  have  been  read  from  mass  storage.  This  allows  the 
data  that  have  been  compacted  by  the  data  compaction  procedures 
(CAPCRUNCH  and  DAPCRUNCH)  to  remain  available  to  the  analysis  and 
display  routine  without  the  need  to  read  it  from  storage.  The  analysis 
procedure    also   displays    the   calculated    respiratory   parameters. 

The  computer  system  is  based  on  the  Hewlett-Packard,  series  200, 
9826  computer  with  1.34  MB  of  internal  RAM,  an  internal  5.25"  floppy 
disk  drive  with  a  256  kB  capacity,  and  two  operating  systems;  a  Basic 
system  stored  in  ROM  (Read  Only  Memory)  and  a  Pascal  system  stored  on 
floppy  disks.  The  9826  is  connected  to  two  other  mass  storage  devices; 
a-  Hewlett-Packard  HP9895A  8"  floppy  disk  with  1  MB  capacity  and  a 
Hewlett-Packard  HP9134  4  MB  hard  disk  system,  of  which  3  MB  is  avail- 
able to  the  9826  computer  while  1  MB  is  reserved  for  another  computer. 
The  system  uses  three  devices  for  hard  copy  output:  a  Digital  Equipment 
Corporation  DECwriter  II  printer,  a  Hewl  e  1 1  -Packard  HP2673A  printer, 
and  a  Hewlett-Packard  HP9872C  eight  pen  plotter.  The  computer  system 
is    interfaced    into    the    remaining    portion    of    the   CBRMS  with    the  DAM 
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which  performs  an  ana  log- to-digi ta  1  (A/D)  conversion  on  the  four  analog 
respiratory  signals. 

The  Basic  operating  system,  version  2.0,  will  automatically  boot 
up  at  power  on.  The  first  thing  the  system  will  do  is  check  the 
internal  5.25"  disk  drive  for  a  program  titled  AUTOST  (an  acronym  for 
AUTOSTart)  which,  if  found,  is  loaded  into  the  computer  memory  and 
execution  of  the  AUTOST  program  begins.  The  CBRMS  uses  such  a  program 
as  will  be  described  in  Section  A5.5.1. 

If  a  great  deal  of  programming  is  to  be  done,  the  program 
designer  should  become  familiar  with  the  Basic  utility  programs  and  the 
Basic  2.0  language  extensions  package,  AP2.0.  The  utilities  can  backup 
disks,  perform  a  program  variable  cross  reference,  unpurge  files, 
indicate  the  remaining  disk  space,  and  repack  disks  to  get  rid  of  blank 
sectors  between  files  (resulting  in  more  room  on  the  disk).  The  Basic 
language  extensions  are  documented  in  the  manuals  of  the  Hewlett- 
Packard  Computing  Lab,  Durland  293.  The  extensions  provide  extended 
editing  features  by  allowing  for  the  locating  and/or  the  changing  of 
program  text,  the  moving  or  copying  of  several  program  lines,  the 
automatic  indentation  of  the  structured  levels,  and  a  few  other  editing 
operations.  Incorporation  of  the  extensions  into  the  Basic  programs  of 
the  CBRMS  would  provide  real  time  clock  support  (determination  of  date 
and  time),  matrix  operations,  maximum  and  minimum  values  of  arrays,  and 
a  number  of  other  useful  extensions. 

The  Pascal  system  is  a  disk  based  system  which  is  booted  by 
placing  the  Pascal  2.1  System  Boot  Disk  in  the  internal  drive.  This 
disk  will  load  the  Pascal  system  and  Pascal's  Editor,  Filer,  and 
Compiler  intomemory.  The  operator  should  become  familiarwith  the 
Main  Command  Level  of  the  operating  system  and  program  des i gners  should 
become  familiar  with  the  Editor,  Compiler,  and  Filer. 

The  Hewlett-Packard  peripherals  are  tied  to  a  common  HP-IB  inter- 
face bus,  the  DECwriter  II  is  connected  to  a  RS232  port,  and  the  DAM  is 
interfaced  to  a  GPIO  (General  Purpose  Input/Output)  port.  The  GPIO  has 
sixteen  bits  of  input,  sixteen  bits  of  output  (in  parallel),  and 
several  control  lines.  Each  peripheral  device  has  a  unique  address 
that  is  represented  differently  in  the  two  operating  systems.  The 
Basic  operating  system  uses  the  specific  addresses  of  the  different 
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peripherals  while  the  Pascal  system  ass igns  a  logical  unit  number  to 
each  device.  The  Pascal  system  also  recognizes  the  volume  label  of  a 
disk  in  addition  to  the  disk  drive's  unit  number.  The  peripherals  and 
their  corresponding  designation  in  the  two  systems  are  shown  in  Table 
A5 . 1 . 1 . 


Table  A5.1.1   Computer  system  peripheral  designations 


Peripheral  IComputer 
I  Sy  s  t  em 
lAddress 


8"  drive 
HP9895A 

Hard  Disk 
HP9134A 
Platter 
Platter 
Platter 
Platter 


HP2673A 
Plotter 

DAM 

Internal 


700 


702 
702,0 
702,1 
702,2 
702,3 


DECwr  i  t  e  r  1 1  I    9 
HP  printer  I   701 


705 

12 


Basic  Operating 

Sy  s  t  em 
— Pes  ifnat inn 


:HP9895,70O 


(see  note  2) 
:HP9895, 700,1 
:HP9895,700,2 
:HP9895,700,3 


701 
705.HPGL 

12 
:  INTERNAL 


Pascal      IVolume  Label 
Operating  Systeml 
Designation    I 


#7 


#12 
#13 
#14 

#6 


I 

I  (see  note  l) 

I 


I 

I    HARD1 

I    HARD2 

I    HARD3 

I 


npt  recognized  I 

(see  note  4)   I 

I 

npt  recognized  I 

(see  note  4)   I 

I 

npt  recognized  I 

(see  note  5)   I 


PRINTER: 

I  ( see  note  3) 


#3 


I  (  see  note  1 ) 


Note  1  : 


Note  2: 


The  volume  label  depends  upon  the  disk  that  is  in  the  drive 
Each  disk  has  its  own  volume  label.  If  the  disk  was 
iSlV/1  1Zed  by  Basic  command  INITIALIZE  the  volume  label  is 
1)9826:.  This  label  can  be  changed  with  the  Filer  in'  the 
Pascal  system  and  also  the  Basic  utili 
Using  the  Filer 


ity  program  INITIALIZE, 
easier  (refer  to  A5.3.2). 

Platter  0  has  been  initialized  for  the  HP9835  computer  system. 

1   ll   1    S        n  ittOr         /■   /Ml     1     i-I         Kq         r.n*        . .   —        »_      _  t- •     ^  i.  -    .  A  £  m.    * 

sys 


...«*  v,  ua=  uccn  initialized  tor  the  HF9835  computer  system. 
s  platter  could  be  set  up  to  work  with  the  9826  computer 
t  em.  r 


Note  3:  The  DECwriter  printer  is  assigned  the  volume  label  PRINTER  bv 
the  Pascal  operating  system. 

Note  3:  These  devices  are  not  recognized  by  the  Pascal  system.  In 
TAmfpJ&Jw'  system  to  recognize  the  peripherals  the  program 
TABL.E.CODE  must  be  altered.  TABLE.CODE  is  automatically 
loaded  during  Pascal  booting  and  its  purpose  is  to  check  for 
peripherals,  and  assign  the  unit  numbers.  The  source  code  for 
this  program  is  CTABLE.TEXT  and  is  located  on  the  Pascal 

CTAm^  o'tfvt'V6'1,,  C0NFIG-'  The  most  "cent  version  is 
C1ABLE2.0. TEXT  which  sets  the  priority  of  the  internal  disk 
drive  higher  than  the  other  drives  so  that  the  AUTOSTART  nro- 
gram  is  loaded  from  the  internal  drive.   Revi 


.  -  .'  i  s  i  o  n  s  to  this 
program  would  allow  the  system  to  recognize  the  other  devices 
However,  such  revisions  may  be  difficult  and  should  be  left  to 
the  experienced  program  designer.  Documentation  of  the  TABLE 
is  located  in  the  technical  reference, 
the  Pascal  2.1  User's  Manual 


pages  442  to  457,  of 


A5.S 
Note  5:   The  DAM  is  not  recognized  by  the  system  but  it  is  still 
possible  to  access  the  device  through  program  control. 


A5  .  2   System  Power  up 

Turning  on  the  CBRMS  involves  two  steps:  (l)  setting  up  of  the 
instrumentation  and  system  calibration  equipment  and  (2)  the  power  up 
of  the  computer  system  (if  the  operator  is  interested  in  the  analysis 
of  data  only,  the  instrumentation  need  not  be  turned  on).  Prior  to  the 
system  calibrati on  and  the  col  lection  of  data  the  individual  trans- 
ducers must  be  calibrated  and  the  gain  and  offsets  of  the  DAM  set. 
Calibration  of  the  Perkin-Elmer  Medical  Gas  Analyzer  (referred  to  as 
the  GMS,  Gas  Mass  Spectrometer)  and  Godart  pneumotachograph  are  spelled 
out  in  their  r e spe c t i ve  manua 1 s  and  calibration  of  the  temperature 
transducer  is  described  in  Chapter  III.  DAM  gain  and  offset 
adjustments  are  described  in  Appendix  II  of  Ribletfs  work  [13]. 

Following  is  a  list  of  the  instrumentation  and  calibration  equip- 
ment which  must  be  turned  on. 

Insirumentat inn  Equipment 

1.  Perkin-Elmer  Medical  Gas  Analyzer.  The  GMS  is  generally  left  in 
the  standby  mode.  Simply  press  the  GMS  ON  button.  If  power  to 
the  GMS  has  not  been  turned  on  the  GMS  must  be  'pumped  down'. 
The  pump  down  procedure  is  outlined  in  the  GMS  owners  manual  and 
requires  two  to  eight  hours  to  accomplish. 

2.  The  Godart  pneumotachograph.  The  PTG  should  be  left  on  during 
periods  of  frequent  use  or  given  ample  time  to  warm  up. 

3.  The  Tektronics  cabinet  containing  the  temperature  transducer. 

4.  The  zero-suppression  box.  The  zero-suppression  box  is  used  to 
alter  the  DC  voltage  level  of  the  GMS  02  and  C02  outputs  so  that 
the  signals  are  bipolar  and  centered  about  zero  volts.  The 
zero-suppression  box  should  be  left  on  during  periods  of 
frequent  use  or  given  ample  time  to  warm  up. 

5.  The  Tektronics  cabinet  containing  the  DAM. 

6.  The  cardiotachometer  should  be  ready.  The  cardiotachome t er  is 
always  on  provided  its  batteries  are  good. 
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7.  The  fan  for  blowing  the  expired  gases  away  from  the  subject 
should  be  ready. 

8.  A  thermometer  for  measuring  the  subject's  pre-  and  post-exercise 
body  temperatures,  a  watch  for  monitoring  experimental  time,  and 
a  metronome  for  pacing  the  subject  should  be  available  and  made 
ready . 

Cal  ibrat,  ion  Equipment 

1.  The  temperature  calibration  bath  heaters.  The  heaters  should  be 
turned  on  3  hours  prior  to  calibration  to  allow  enough  time  for 
the  water  baths  to  warm  up. 

2.  The  GMS  calibration  gas  should  be  ready  but  not  on. 

3.  The  Harvard  respirator  and  the  zero  flow  isolation  box  should  be 
ready. 

4.  The  PTM  heater  should  be  ready  but  not  on. 

The  computer  system  must  be  powered  up  in  three  steps;  the 
peripherals  turned  on,  the  necessary  operating  system  loaded,  and  the 
program  execution  began.  The  Hewlett-Packard  9826  manuals  specify  that 
all  computer  peripherals  must  be  turned  on  before  the  9826  computer  is 
turned  on.  The  Pascal  operating  system  needs  to  be  loaded  if  the  CBRMS 
system  is  to  be  calibrated  or  respiratory  data  are  to  be  collected. 
The  Basic  operating  system  is  used  for  analysis  and  compaction  of  the 
data  . 

Boot  ing  the  Pascal  2 . 1  operat  ing  system 

Below  is  a  step  by  step  procedure  for  booting  the  Pascal 
operating  system. 

1.  Make  certain  that  all  computer  system  peripherals  (DECwriter  II 
printer,  both  external  disk  drives,  HP2673A  printer,  and  the 
plotter)  are  on. 

2.  Place  the  5.25"  disk  titled  Pascal  2.1  systemBoot  disk  in  the 
HP9826's  internal  disk  drive. 

3.  Turn  the  HP9826  on. 

4.  Allow  the  system  to  boot  (approximately  1  1/2  minutes). 
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5.  The  system  will  prompt  you  for  the  new  sy  s  t  em  da  t  e  .  Enter  the 
system  date  in  the  format  DD<separa tor>MON<separator>YR;  where 
DD  is  the  date,  MON  is  a  three  letter  abbreviation  for  the 
month,  YR  is  the  last  two  digits  of  the  year,  and  <separator>  is 
any  non-alphanumeric  character  (usually  a  period  is  easier  as  it 
is  located  on  the  numeric  keypad)  followed  by  depressing  the 
ENTER  key.  The  entire  date  is  not  necessary  if  the  current 
month  or  current  year  is  correct.  If  the  current  system  date  is 
to  be  used  just  press  the  ENTER  key. 

6.  The  system  wi  1  1  prompt  for  the  new  system  time.  Enter  the 
system  time  in  the  format  HH<separa tor>MM<separator>SS;  where  HH 
is  the  hour  (using  the  24  hour  clock),  MM  is  the  minutes,  SS  is 
the  seconds,  and  <separator>  is  any  non-alphanumeric  character 
(usually  a  period  is  easier  as  it  is  located  on  the  numeric  key- 
pad) followed  by  depressing  the  ENTER  key.  It  is  not  necessary 
to  enter  the  entire  time.  If  the  current  system  clock  time  is 
to  be  used  just  press  the  ENTER  key. 

Exampl  e  _qX  the  sett  ing  the  system  date  and  t  ime  : 

Screen  di  splay : 

p  r  omp  t  line 

System  date  is  19-Feb-85 

System  time  is  13:20:22 

Work  Station  Rev.  2.1         1 -Mar -83 

Available  global  memory    51420  bytes 
Total  available  memory      899894  bytes 

Default  volume:  HARD3: 

System  volume  :  HARD3: 

Copyright  information 


Response  to  the  system  date  prompt  line 
Enter  the  new  system  date:     20. MAR. 85 

Response  to  the  system  time  prompt  line 
Enter  the  new  system  clock  time:  8.26 

The  displayed  system  data  and  time  will  be  updated.  Pressing  the 
V  key  (V  for  the  comnand  Version)  while  in  the  Main  Conrnand  Level  will 
allow  for  the  correction  of  mistakes. 
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The  Pascal  operating  system  is  now  loaded  and  the  system  is  in 
the  Main  Command  Level.   Beginning  operation  of  programs  (as  described 
in  Section  A5.4  for  the  data  collection  and  calibration  programs),  the 
Editor,  the  Filer,  etc.  are  possible  from  the  Main  Comnand  Level. 

Booting  the  Basic  2JI   operating  system 

The  Basic  operating  system;  version  2.0,  is  stored  in  ROM  in  the 
HP9  826  and  is  automatically  loaded  as  the  operating  system  provided 
some  other  operating  system  is  not  present  on  the  disk  in  the  internal 
dr  i ve . 

1.  Make  certain  that  all  computer  system  per ipheral s  ( the  DECwr  i ter 
II  printer,  both  external  disk  drives,  the  HP2673A  printer,  and 
the  plotter)  are  on. 

2.  Place  the  5.25"  floppy  disk  titled  "Michael's  Analysis  disk"  in 
the  internal  disk  drive. 

3.  Turn  the  HP9826  computer  on. 

4.  Allow  the  system  to  boot  and  load  the  autostart  program,  AUTOST 
(approximately  15  seconds). 

5.  The  AUTOST  program  will  begin  execution.  The  compaction 
programs  (CAPCRUNCH  and  DAPCRUNCH),  the  analysis  and  display 
program  (ANALYSIS),  and  the  heart  rate  storage  routine  (STOREHR) 
can  be  called  from  AUTOST.  The  program  can  be  exited  to  allow 
for  editing  or  execution  of  other  programs  or  any  other  Basic 
operat  i  on . 

6.  Load  the  Basic  Extensions  package,  AP2.0.  These  extensions  pro- 
vide the  programmer  with  many  tools  to  aid  the  editing  and 
development  of  programs  (locating  and/or  changing  of  program 
text  and  variables,  automatic  indentation  of  the  structure 
levels,  and  many  other  enhancements).  Refer  to  the  reference 
[23]  for  detailed  information  of  the  Extensions  2.0  refer.  The 
extensions  package  does  not  need  to  be  loaded  unless  program 
design  or  editing  is  to  be  done.  To  load  the  extensions 
package,  exit  the  AUTOST  program  and  execute  the  conmand  SCRATCH 
A  to  clear  all  program  memory.  Execute  the  command  LOAD  BIN 
"AP2_0:HP9  895,7O2,3"  (the  extensions  are  located  on  the  hard 
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disk,    platter    3).      The    extensions  will    take    approximately   20 
seconds    to    load. 

A5.3      Configuration    of    the    ASCII    data    disks 

The  calibration  data  generated  by  CAP2.CODE  and  the  respiratory 
data  collected  by  DAP 2. CODE  are  stored  in  ASCII  format.  The 
respiratory  data  require  a  lot  of  disk  space  (24,000  data  points 
require  750  kB,  768,000  bytes;  i.e.  4  int ege r s /da t um  point  times  2 
bytes/ integer  times  24,000  datum  points  per  channel  times  4  channels). 
Due  to  the  large  amount  of  required  storage  space  for  the  ASCII  data, 
the  possible  storage  devices  are  limited  to  the  8"  floppy  disk  and 
platters    one    and    two   of    the   hard   disk. 

The  respiratory  data  collection  program  stores  the  four  channels 
of  data  in  files  named  MONSTER1.ASC  thru  MONSTER4.ASC  for  all  data 
collection  runs;  the  permanent  naming  of  the  respiratory  data  files 
occur  during  file  compaction  using  the  program  DAPCRUNCH  in  the  Basic 
operating  system.  The  Pascal  system  does  not  protect  existing  files  as 
does  the  Basic  operating  system  so  that  it  is  possible  to  write  to 
these  files  with  new  data,  resulting  in  the  old  data  being  overwritten 
and  lost.  To  solve  this  probl  em  a  separate  file  named  DI SK_STAT.ASC 
was  created  on  eachASCII  data  diskwhich  indicates  the  status  of  the 
disk:  either  a  full  status,  the  disk  contains  data  that  has  not  been 
crunched,  or  the  empty  status,  no  ASCII  data  exists  on  the  disk.  The 
data  collection  program,  DAP2.CODE,  checks  this  file  to  obtain  the 
status  of  the  disk  and  if  is  contains  ASCII  data  the  operator  is 
prompted  to  choose  another  storage  device  or  replace  the  disk.  The 
original  data  collection  program,  DAP. CODE  [13],  does  not  check  the 
disk  status  and  all  un-compacted  data  are  not  protected  from  being 
overwri  1 1 en. 

If  the  disk  selected  for  storing  the  ASCII  data  does  not  contain 
the  status  file,  as  is  the  case  with  a  newly  initialized  disk,  the 
program  wi 11  crash  and  the  collected  data  wi  11  be  lost.  Therefore  care 
should  be  taken  to  make  certain  that  the  following  ASCII  data  disk  con- 
figuration procedure  is  foil  owed  for  a  newly  initialized  ASCI  I  data 
disk. 

The   Pascal    system's   Filer  may   be   used    to   check  a  disk   to  deter- 
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mine  if  it  contains  the  status  file.  Execute  the  Filer  by  pressing  the 
F  key  (F  for  Filer)  while  in  the  Main  Command  Level.  Once  in  the 
filer,  press  the  L  key  (L  for  List  a  directory).  Enter  #7  (#7  is  the 
unit  number  assigned  to  the  8"  disk  drive)  in  response  to  the  'List 
what  di rectory  ?'  prompt.  Thiswill  list  the  files  containedonthe 
disk  and  the  space  remaining  on  the  disk.  The  disk  has  been  configured 
if  it  contains  the  file  'DISK_STAT.ASC  in  its  directory. 

The  procedure  below  can  also  be  used  to  re-configure  a  disk  so 
that  it  will  except  ASCII  data.  This  is  useful  if  a  disk  contains  un- 
wanted data  which  can  occur  during  practice  sessions  with. the 
respiratory  data  collection  program  or  from  an  experimental  collection 
in  which  a  problem  arose.  Reconfiguration  of  a  disk  is  accomplished  by 
following  steps  three  thru  five  of  the  procedure  below. 

A5 . 3 . 1  Procedure  JLox  setting  the  status  slL  ar.  ASCII  data  di  sks  xq_  empty 

1.  Select  an  8"  disk  to  contain  the  ASCII  data.  If  the  disk  is  new 
or  contains  un-wanted  data  and  programs,  the  disk  must  be 
initialized  (step  2).  If  the  disk  has  already  been  initialized 
and  contains  enough  room  to  store  the  ASCII  data  then  proceed  to 
step  3. 

2.  While  in  the  Basic  operating  system  execute  the  command 

INITIALIZE  ":HP989S,700". 
Thiswill  start  the  initialization  process  of  the  ASCI  I  data 
disk.   The  process  requires  approximately  10  minutes  to 
c  omp  1 e  t  e . 

3.  Boot  up  the  Pascal  operating  system  as  described  in  Section  A5.2 
of  this  appendix. 

4.  Run  the  Pascal  program  ASCI_CONF. CODE  by  pressing  the  R  key  (R 
for  Run),  type  the  program  name,  ASCI_CONF,  and  press  the  ENTER 
key.  The  program  will  begin  execution  and  display  the  three 
disk  drives  which  may  be  configured  to  except  the  ASCII 
respiratory  data:  the  disk  in  the  8"  drive  and  platters  one  and 
two  of  the  hard  disk. 

5.  Enter  the  number  corresponding  to  the  device  that  is  to  be 
configured  and  press  the  ENTER  key  (for  the  newly  initialized  8" 
disks  select  option  3).   The  program  wi 1  1  now  create  the  status 
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file,  set  the  status  to  empty.  Execution  then  returns  to  the 
Main  Conmand  Level.  The  disk  is  now  ready  to  except  respiratory 
data  collected  by  the  data  collection  program  DAP2.CODE. 

A5  .  3  .  2   Changing  the  volume  label  of  _a_  di  sk 

The  volume  label  of  a  disk  may  be  altered  with  the  Pascal 
system's  filer.  This  allows  a  meaningful  volume  label,  the  subject's 
name  for  example,  to  be  placed  on  the  disk.  The  volume  labels  on  the 
hard  disks  are  HARD1 ,  HARD2,  and  HARD3,  corresponding  to  platters  one 
thru  three  and  should  not  be  altered.  To  change  the  label  of  the  8" 
disk,  follow  the  procedure  below.  Refer  to  the  Filer  portion  of  the 
Pascal  2.1  User's  Manual  [l]  for  the  details.  Disks  newly  initialized 
using  the  Basic  operating  system  and  the  INITIALIZE  conmand  will  have 
the  volume  label  'B9826:'. 

1 .  From  the  Ma  in  Command  Level  enter  the  Pascal  syst  em  Filer  by 
pressing  the  F  key.  The  Filer  will  begin  execution  and  the 
Filer  Conmand  Line  will  be  displayed. 

2.  Press  the  C  key  (C  for  Change). 

3.  In  response  to  the  'Change  what  file?'  prompt,  enter  '#7:' 
fol  lowed  by  the  ENTER  key  (the  uni  t  number  of  the  8"  drive  is 
#7). 

4.  In  response  to  the  'Change  to  what?'  prompt  enter  the  new  volume 
label  (6  characters  maximum)  followed  by  a  colon  and  press  the 
ENTER  key. 


5.  Press  the  V  key  (V  for  Volumes  recognized  by  the  Pascal  system). 
The  peripherals  recognized  by  the  Pascal  system  will  be 
displayed.  If  the  volume  was  successfully  changed  the  new 
volume  label  will  appear  alongside  the  unit  number  7. 

6.  The  disk  can  now  be  referred  to  with  the  specified  volume  label. 

7.  Exit  the  filer  and  return  to  the  Main  Conmand  Level  by  pressing 
the  Q  key  (Q  for  Qui  t). 
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A5.4  Cal  ibrat ion  _ani  data  co  1  l  ect  inn 

Cal  ibratiou  of  the  CBRMS  and  collection  of  data  with  the  CBRMS 
are  relatively  simple  procedures  whose  sequences  are  controlled  by  two 
Pascal  programs,  CAP2.CODE  (Calibration  program,  Version  2)  and 
DAP2.CODE  (Cata  Acqui  s  i  t  ion  program,  Version  2).  The  program  CAP2.CODE 
controls  calibration  of  the  system  and  DAP2.00DE  controls  collection  of 
respiratory  data.  The  programs  prompt  the  operator  with  simple 
instructions  which,  in  conjunction  with  this  operator's  guide,  describe 
the  tasks  to  be  performed.  The  first  section  to  be  presented  will 
provide  an  operator's  guide  to  calibration  of  the  CBRMS  using  the 
program  CAP2.CODE  and  the  second  wi  1  1  provide  an  operator's  guide  to 
collection  of  respiratory  data  using  the  program  DAP2.CODE.  Operation 
of  the  data  compaction  routines  and  the  data  analysis  and  display 
routine  is  described  in  Section  A5.5  of  this  appendix. 

A5.4.1  Operator  instructions  for  calibration  of  the  CBRMS. 

Following  is  a  step-by-step  procedure  for  the  calibration  of  the 
Computer  Based  Respiratory  Measurement  System  using  the  Pascal  program 
CAP2.CODE.  The  calibration  procedure  is  best  accomp  1  i shed  wi th  two 
operators  working  as  a  team;  one  operator  handling  the  instrumentation 
and  the  other  operating  the  computer  system.  However,  one  operator  can 
easily  accomplish  the  calibration  procedure.  The  procedure  can  be 
completed  in  ten  minutes  by  an  experienced  operator  (or  operator  team), 
but  the  operator(s)  should  not  be  discouraged  if  a  longer  time  is 
needed.  Above  all,  do  not  rush  through  the  procedure.  A  lot  of  opera- 
tions are  performed  and  must  be  performed  carefully  and  accurately. 

1.  Power  up  the  instrumentation  system  and  the  Pascal  operating 
system  as  described  in  Section  A5.2  of  this  appendix.  (Remember 
to  a  1  1  ow  amp  le  time  for  thewater  baths  to  heat  up  and  for  the 
Godart  PTG  and  zero-suppression  box  to  warm  up  and  stabilize.) 

2.  Make  certain  that  the  disk  to  be  used  for  storage  of  the  ASCII 
data  is  ready. 

3.  Execute  the  calibration  program  by  pressing  the  R  key  (R  for 
Run).  Type  the  program  name,  CAP2,  followed  by  the  ENTER  key 
(it  is  not  necessary  to  type  CAP2.CODE,  as  the  system  will  tack 
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on  the  .CODE  part).   Program  execution  will  begin. 

4.  Enter  the  sampling  frequency  in  response  to  the  program  prompt, 
'ENTER  THE  SAMPLING  FREQUENCY:  '.  Typically  50  (for  50  Hz)  is 
used . 

Note:  As  with  all  numeric  input  while  running  a  Pascal  program, 
make  certain  that  only  numeric  keys,  the  '-•  key,  the  '+'  key, 
or  the  V  key  are  pressed.  Depression  of  any  non-numeric  key 
will  cause  the  program  to  crash  and  all  preceding  data  are  lost. 

Cali brat  ion  M.  Xhs.  Q&. 

5.  Determine  if  the  fractional  gas  signals  are  to  be  calibrated  and 
respond  to  the  prompt,  'CALIBRATE  FRACTIONAL  CONCENTRATION 
SIGNAL?  (Y/N)\  If  the  fractional  gas  signals  are  not  to  be 
calibrated    skip    to    step   number    16. 

Note:    as  with   all    yes   or   no  questions   enter   'Y'  (or   'y')  for  yes 
r    enter    'N'    (or    'n')   for   no.    Entering   any  key   other   than   'Y'   or 
'N'    is   not    excepted    and   you  wi 1  1    be    prompted    to    re-enter  your 
response  . 

6.  Place  the  GMS  probe  in  room  air.  The  calibration  program 
prompts  the  operator  to  do  this  by  displaying  'CONNECT  THE  GMS 
PROBE  TO  ROOM  AIR.'.  While  the  room  a.r  signal  i,  being 
sampled,  in  step  9  below,  be  careful  not  to  breath  on  or  near 
(within  a  few  feet)  the  GMS  probe  as  this  will  alter  fractional 
content  of  the  gas  being  sampled  and  cause  erroneous  fraction*! 
gas    calibration    factors. 

7.  Enter  the  percent  composition  of  C02  in  room  air  (0.04)  in 
response  to  the  prompt,  'ENTER  ACTUAL  PERCENT  C02 
CONCENTRATION.'.  Enter  the  value  as  a  percentage.  Room  air  C02 
concentration  is  0.04%,  enter  this  value  rather  than  the  GMS 
reading . 

8.  Enter  the  percent  composition  of  02  in  room  air  (20.93)  in 
response  to  the  prompt,  'ENTER  ACTUAL  PERCENT  02 
CONCENTRATION.'.  Enter  the  value  as  a  percentage.  Room  air  02 
concentration    is   20.93%;   enter    this   value    rather    than    the  GMS 


reading . 
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12. 


-Note:  The  GMS  should  be  recalibrated  if  the  displays  indicate 
significantly  different  concentration  values  from  those  in  the 
sampled    gas    (see    the    operator's  manual). 

9.  Press  the  ENTER  key,  which  is  what  the  program  instructs  the 
operator  to  do,  to  sample  the  GMS  outputs  while  the  GMS  probe  is 
in  room  air.  The  program  will  display  the  length  of  time  the 
system  will    take    to    sample    the   signal. 

10.  The  average  binary  values  of  the  sampled  data  for  room  air 
conditions    are    displayed. 

11.  Place  the  GMS  probe  in  the  calibration  gas  delivery  port  and 
open  the  main  valve  on  the  calibration  gas  cylinder.  The 
calibration  program  prompts  the  operator  to  do  this  by 
displaying    'CONNECT   THE   GMS    PROBE  TO  THE  CALIBRATION  GAS.'. 

Enter  the  percentage  CO.,  concentration  of  the  calibration  gas  in 
response  to  the  prompt,  'ENTER  THE  ACTUAL  PERCENT  C02 
CONCENTRATION.'.  The  present  calibration  gas  contains  7.0%  C02. 
If    in   doubt    check    the   gas    cylinder    for    the   correct    value. 

13.  Enter  the  percentage  02  concentration  of  the  calibration  gas  in 
response  to  the  prompt,  'ENTER  THE  ACTUAL  PERCENT  02 
CONCENTRATION.'.  The  present  calibration  gas  contains  12.9*  Oj. 
If    in   doubt    check    the    gas    cylinder    for    the    correct    value. 

14.  Press  the  ENTER  key,  which  is  what  the  program  instructs  the 
operator  to  do,  to  sample  the  GMS  output  while  the  GMS  probe  is 
in  the  calibration  gas.  The  program  will  display  the  length  of 
time    the    system  will    take    to   sample    the    signal. 

15.  The  average  binary  values  of  the  sampled  data  for  the 
calibration  gas  are  displayed  followed  by  a  display  of  the 
computed    calibration    factors    for    the    fractional    gas    signals. 


Transducer 


me  if  the  temperature  transducer  is  to  be  calibrated  and 
respond  to  the  prompt,  'Do  you  wish  to  calibrate  the  temperature 
transducer?  (Y/N)'.   If  the  temperature  transducer  is  not  to  be 
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calibrated  then  enter  'N'  and  continue  with  step  23. 

17.  Read  the  calibrated  thermometer  whi 1 e  it  is  placed  in  the  lowest 
temperature  bath,  place  the  tip  of  the  thermocouple  in  the  bath, 
and  enter  the  thermometer  reading  into  the  computer.  The 
computer  wi 1 1  sampl e  the  temperature  channel  and  average  the 
samples.  The  average  of  the  samples  is  displayed. 

18.  Step  17  is  repeated  for  the  middle  temperature  bath  and  the  high 
temperature  bath. 

19.  The  program  will  display  the  computed  calibration  factors. 

20.  Based  on  the  calibration  factors,  determine  if  the  temperature 
transducer  is  to  be  re-calibrated  and  answer  the  prompt,  'Do  you 

wish  to  re-calibrate  the  temperature  transducer?  (Y/N)'.  If  the 
temperature  transducer  is  not  to  be  re -ca 1 i brated  then  continue 
to  step  22. 

21.  Make  certain  you  want  to  re-calibrate  the  temperature 
transducer.  Respond  to  the  prompt,  'You  are  going  to  re- 
calibrate the  temperature  transducer.  Is  that  what  you  wish  to 
do?  (Y/N)'.  If  the  transducer  is  to  be  re  -  ca  1  i  bra  t  ed ,  then 
return  to  step  17. 

Calibration  slL  xhs.  FKL   flow  transducer 

23.  Determine  if  the  PTG  flow  transducer  is  to  be  calibrated  and 
respond  to  the  prompt,  'CALIBRATE  THE  FLOW  TRANSDUCER?  (Y/N)'. 
If  the  flow  transducer  is  not  to  be  calibrated  then  enter  'N* 
and  continue  with  step  36. 

24.  Determine  if  the  temperature  and  viscosity  corrections  are  to  be 
used  in  calibrating  the  PTG  flow  transducer  and  respond  to  the 
prompt,  'Do  you  wish  to  use  gas  temperature  and  gas  viscosity 
calculations  whi le  calibrating  the  flow  signal?  (Y/N)'.  If 
temperature  and  viscosity  corrections  are  not  to  be  used  with 
the  flow  calibration  then  enter  'N'  and  continue  with  step  28. 

25.  Enter  the  ambient  relative  humidity  in  response  to  the  prompt, 
'Enter  the  percent  relative  humidity.'. 
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26.  Enter  the  ambient  temperature  (degrees  Fahrenheit)  in  response 
to   the  prompt,    'Enter   the   room  temperature,   (deg  F)'. 

27.  Enter  the  barometric  pressure  ( i nches  me r cury)  in  response  to 
the    prompt,     'Enter    the    barometric    pressure,     (inches)'. 

28.  Determine  if  a  default  value  of  2038  is  to  be  used  for  the 
binary  value  corresponding  to  zero  flow  through  the  PTM  and 
respond  to  the  prompt,  'You  can  determine  the  binary  zero  flow 
or  use  a  default  value  of  2038.  Do  you  wish  to  determine  binary 
zero  flow?  (Y/N)'.  If  you  wish  to  use  the  default  value  then 
enter   'N'   and   continue   to   step  32. 

29.  The  prompt,  'CONNECT  ZERO  FLOW  TO  THE  PNEUMOTACHOMETER ' ,  will 
now  be  displayed.  In  addition  to  connecting  zero  flow  to  the 
PTM,  the  PTGmust  be  zeroed.  The  PTG  is  zeroed  by  placing  the 
PTG  in  the  volume  mode  (set  switch  to  'V').  Blow  into  the  PTM 
until  the  PTG  needle  is  in  themiddle  of  the  scale.  Place  the 
PTM  in  the  zeroing  box  to  isolate  it  from  all  air  flow.  Adjust 
the    zeroing   potentiometer   until    the    PTG  needle    does   not  move. 

30.  Return    the    PTG    to    the    flow  mode    (set    the    switch    to    flow). 

31.  Press  the  ENTER  key  when  zero  flowis  attained  (by  leaving  the 
PTM  in  the  zeroing  box).  You  are  instructed  to  do  so  by  the 
'PRESS  ENTER  TO  CONTINUE'  prompt.  The  computer  samples  the  zero 
flow  signal  and  averages  the  samples  to  compute  the  binary  value 
corresponding  to  zero  flow.  Once  computed,  the  zero  flow  binary 
value    is    displayed    to   the   operator. 

32.  If  temperature  and  gas  viscosity  corrections  are  to  be  used,  as 
selected  in  step  24,  insert  the  temperature  transducer  into  the 
PTM   head. 

33.  Turn  the  PTM  heater  on.  Connect  the  harvard  respirator  to  the 
PTM.  Turn  the  respirator  on  and  allow  the  PTM  temperature  to 
stabilize    (a    few  minutes). 

34.  Press  the  ENTER  key  when  the  PTM  temperature  has  stabilized. 
You  are  instructed  to  do  so  by  the  'PRESS  ENTER  TO  CONTINUE' 
prompt.  The  computer  samples  the  flow  signal.  Once  the  flow 
signal    has   been   s  amp  led    the    respirator  ma y   be    turned   off.      At 
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this  time,  the  subject  may  be  placed  on  the  ergometer  and  fitted 
with  the  instrumentation. 

35.  The  computer  integrates  each  inspiratory  and  expiratory  cycle  of 
the  pump  to  attain  a  volume  that  is  directly  proportional  to  the 
respirator's  volume.  Two  sets  of  volumes  are  computed,  one  set 
uses  no  temperature  or  viscosity  corrections  and  the  other  does. 
If  temperature  and  gas  viscosity  corrections  were  not  to  be 
used,  as  selected  in  step  24,  the  corrected  values  are  set  equal 
to  the  non-corrected  values.  The  two  sets  of  volumes  are 
displayed  on  the  screen  for  each  cycle  of  the  respirator.  The 
individual  inspiratory  and  expiratory  volumes  are  averaged  and 
the  proportionality  factors  (the  calibration  factors)  which 
relate  the  computed  volume  to  the  respirator  volume  are 
determined.   These  calibration  factors  are  displayed  on  the  CRT. 


SlL   the  . 


.  Data 


36.  Determine  if  the  calibration  data  are  to  be  stored  on  disk  and 
respond  to  the  prompt,  'STORE  CALIBRATION  FACTORS  ON  DISK? 
(Y/N)'.  If  the  calibration  values  are  not  to  be  stored  enter 
'N'  and   proceed  to  step  41. 

37.  Enter  the  calibration  file  name. 

38.  Specify  which  disk  drive  is  to  contain  the  calibration  data. 

39.  Enter  the  current  date. 

40.  The  calibration  data  will  be  stored. 

41.  The  calibration  procedure  is  complete. 


A5  .  4  .  2  Operator  instruct  inns  for  cnl  I  ect.  ion  _qX 

respi  ratorv  data  with  the  CBEMS. 

Following  is  a  step-by-step  procedure  for  the  collection  of 
respiratory  data  using  the  Computer  Based  Respiratory  Measurement 
System  (CBRMS).  The  data  procedure  is  best  accomplished  with  two 
operator s  working  as  a  team;  one  ope ra t or  mon i t or ing  the  subject  and 
handling  the  instrumentation  and  the  other  operating  the  computer 
system.   However,  one  operator  can  easily  accomplish  the  task. 
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1.  If  the  system  is  not  on  then  power  up  the  instrumentation  system 
and  the  Pascal  operating  system  as  described  in  Section  A5.2  of 
this  appendix.  The  system  is  generally  powered  up  prior  to  data 
collect! on,  as  the  system  is  usual  ly  calibrated  prior  to  data 
col  lee t  i  on. 

2.  Make  certain  that  the  disk  to  be  used  for  storage  of  the  ASCII 
data  is  ready  and  has  been  configured  to  accept  the  data  from 
the  data  collection  program  (see  Section  A5.3).  If  the  disk  has 
not  been  configured  to  accept  the  data,  the  program  will  crash 
and  all  data  wi  11  be  lost  when  an  at  tempt  is  made  to  write  the 
data  to  disk  in  step  9. 

3.  Execute  the  data  collection  program  by  pressing  the  R  key  (R  for 
Run).  Type  the  program  name,  'DAP2',  (it  is  not  necessary  to 
type  DAP2.CODE,  the  system  will  tack  on  the  .CODE  part)  followed 
by  the  ENTER  key.   Program  execut i on  wi 1 1  begin. 

4.  Enter  the  sampling  frequency  in  response  to  the  program  prompt, 
'ENTER  THE  SAMPLING  FREQUENCY:  \  Typically  50  (for  50  Hz)  is 
used . 

Note:  as  with  all  numeric  input  while  running  a  Pascal  program, 
make  certain  that  only  numeric  keys,  the  '-'  key,  the  '+'  key, 
or  the  '.'  key  is  pressed  since  depression  of  any  other  key  wi  1 1 
cause  the  program  to  crash  and  all  preceding  data  are  lost. 

5.  Enter  the  number  of  samples  to  be  collected  in  response  to  the 
program  prompt,  of  'ENTER  NUMBER  OF  SAMPLES  [24,000  MAX]:'.  The 
number  of  samples  must  be  in  the  range  1  to  24000  for  the 
current  system. 

6.  Make  certain  the  subject  is  prepared,  then  press  the  'ENTER'  key 
to  begin  collection  of  the  data.  The  number  of  samples  and  the 
length  of  time  required  to  collect  the  samples  will  be 
displayed.  The  computer  will  sound  an  audible  beep  and  display 
the  message,  'DATA  COLLECTION  COMPLETE'  when  the  data  have  been 
collected.  The  computer  then  calculates  the  maximum  and  minimum 
values  of  each  channel  and  counts  the  number  of  data  points 
equal  to  the  saturation  values  (0  or  4095)  for  each  channel.  No 
operator  input  is  required  until  all  the  data  has  been  collected 
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and  the  maximum  value,  minimum  value,  and  number  of  saturation 
points  counted. 

7.  This  is  your  last  chance  to  make  certain  that  the  device  to 
contain  the  ASCII  data  has  been  configured  to  hold  ASCII  data 
(see  Section   A5.3) 

8.  Select  the  mass  storage  device  which  wi 11  containthe  ASCI  I 
data . 

9.  If  the  device  presently  contains  ASCI  I  data  the  computer  wi 1  1 
have  you  enter  an  alternate  device.  Otherwise,  the  data  are 
stored . 

10.  The  data  collection  procedure  is  complete. 


A5.5   Compaction  of  the  Calibration  and  Respiratory  nata 

Compaction  of  the  calibration  data  and  the  respiratory  data 
stored  in  ASCII  format  by  the  Pascal  programs  CAP2  and  DAP2  to  the 
numeric  format  of  Basic  will  now  be  described.  Compaction  of  the  data 
is  accompl ished  wi  th  two  Basic  programs:  CAPCRUNCH  for  compaction  of 
the  calibration  data  and  DAPCRUNCH  for  compaction  of  the  respiratory 
data.  The  programs  are  simple  to  operate  and  require  minimal  operator 
input.  Operator  instructions  for  the  compaction  of  the  data  will  now 
be  given.  If  only  one  type  of  compaction  is  necessary  the  other 
compaction  operation  may  be  bypassed. 

The  calibration  and  respiratory  data  will  be  stored  on  an  8" 
floppy  disk.  If  the  ASCII  data  are  also  stored  on  8"  floppy  disk,  the 
two  diskswill  have  to  be  switched  during  operation  of  the  programs. 
The  compaction  programs  will  prompt  the  operator  when  the  disks  need  to 
be  exchanged. 

1.  Power  up  the  Basic  operating  system  as  described  in  section  A5. 2 
of  this  appendix.  If  the  Basic  operating  system  is  powered  up, 
execution  of  the  AUTOSTar  t  programmay  be  accompl  ished  by  the 
command 

LOAD  "AUTOST:  INTERNAL",  1 

2.  Have  an  8"  disk  prepared  to  accept  the  calibration  data  and 
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respiratory  data.  Continue  with  step  3  for  the  compaction  of 
the  calibration  data  or  skip  to  step  11  for  compaction  of  the 
re  spi  ratory  data. 

Compact  i  on  M.  the  cal  ihra  t  inn  data 

3.  With  the  AUTOSTart  program  executing,  press  the  kQ  soft  key 
which  has  the  label  "CCRUNCH".  CAPCRUNCH  will  load  and 
execut ion  wi  1  1  begin. 

4.  Press  the  kQ  softkey  labeled  "CCRUNCH"  again  to  continue  with 
the  compact  ion  of  the  calibration  data.  CAPCRUNCH  al lows  the 
return  to  the  AUTOST  program  by  pressing  the  kg  softkey  labeled 
"EXIT".  This  may  be  desired  if  the  CCRUNCH  key  was  accidentally 
pressed  from  the  AUTOSTart  program. 

5.  Enter  the  name  of  the  calibration  file. 

6.  Three  mass  storage  devices  will  be  displayed  on  the  screen: 
platters  1  and  2  of  the  hard  disk  and  the  8"  disk.  Enter  the 
number  corresponding  to  the  mass  storage  1 ocat i on  whi ch  contains 
the  calibration  data  collected  by  CAP2.CODE. 

7.  If  the  ASCII  data  were  stored  on  an  8"  disk  (as  specified  in 
step  6)  then  place  the  ASCII  data  disk  in  the  8"  disk  drive  in 
accordance  with  the  prompt  displayed  on  the  computer's  screen. 
Press  the  CONTINUE  key  when  this  is  accompl  ished.  If  the  data 
were  stored  on  the  hard  disk  place  the  8"  disk  which  will 
contain  the  compacted  data  in  the  8"  disk  drive  and  continue  to 
step  10  (the  ASCII  data  will  be  read,  converted  to  numeric 
format,  and  stored;  this  will  require  several  seconds). 

8.  The  datawill  be  read  from  the  disk  (a  few  seconds)  and  the 
operator  prompted  to  place  the  8"  disk  which  wi  1  1  contain  the 
compacted  data  in  the  8"  disk  drive.  Press  the  CONTINUE  key 
when  this  is  accomplished. 

9.  The  data  will  be  stored  (several  seconds)  and  the  operator 
prompted  to  place  the  ASCII  data  disk  in  the  8"  disk  drive. 
Press  the  CONTINUE  key  when  this  is  accomplished.  The  ASCII 
data  will  then  be  destroyed. 

10.  Program  operation  wi  1  1  return  to  the  AUTOSTart  program. 
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Compaction  M  the  respiratory  data 

11.  With  the  AUTOSTart  program  executing,  press  the  k.  soft  key 
which  has  the  label  "DCRUNCH".  DAPCRUNCH  will  load  and 
execut ion  wi 1 1  begin. 

12.  Press  the  kj  softkey  labeled  "DCRUNCH"  again  to  continue  with 
the  respiratory  data  compaction.  DAPCRUNCH  allows  for  the 
return  to  the  AUTOST  program  by  pressing  the  ko  softkey  labeled 
"EXIT".  This  may  be  desired  if  the  DCRUNCH  key  was  accidentally 
pressed  from  the  AUTOSTart  program. 

14.  Three  mass  storage  devices  will  be  displayed  on  the  screen: 
platters  1  and  2  of  the  hard  disk  and  the  8"  disk.  Enter  the 
number  corresponding  to  the  mass  storage  1  ocat i on  which  contains 
the  respiratory  data  collected  by  DAP2.CODE. 

15.  Enter  the  number  of  data  points  which  were  collected. 

16.  Enter  the  name  of  the  C02  data  file. 

17.  Enter  the  name  of  the  02  data  file.  (If  the  02  file  name  begins 
with  a  O  and  the  remaining  portion  of  the  file  name  is  the  same 
as  the  C02  file  name,  with  the  exception  of  the  first  letter, 
then  simply  press  the  CONTINUE  key.  Example:  02  file  name  is 
O1106N175  and  C02  file  name  is  C1106N175). 

18.  Enter  the  name  of  the  flow  data  file.  (If  the  f 1 ow  f i 1 e  name 
begins  with  a  V  and  the  remaining  portion  of  the  file  name  is 
the  same  as  the  C02  file  name,  with  the  exception  of  the  first 
letter,  then  simply  press  the  CONTINUE  key.  Example:  flow  file 
name  is  V1106N175  and  C02  file  name  is  CU06N175). 

19.  Enter  the  name  of  the  temperature  data  file.  (If  the 
temperature  file  name  begins  with  a  T  and  the  remaining  portion 
of  the  file  name  is  the  same  as  the  C02  file  name  with  the 
exception  of  the  first  letter  then  simply  press  the  CONTINUE 
key.  Example:  temperature  file  name  is  T1106N175  and  C02  file 
name  is  C1106N175) 

20.  If  the  ASCII  data  were  stored  on  an  8"  disk  (as  specified  in 
step  14)  then  place  the  ASCII  data  disk  in  the  8"  disk  drive  in 
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accordance  with  the  prompt  displayed  on  the  computer's  screen. 
Press  the  CONTINUE  key  when  this  is  accomplished.  If  the  data 
were  stored  on  the  hard  disk  place  the  8"  d i sk  whi ch  wi  1  1 
contain  the  compacted  data  in  the  8"  drive  and  continue  to  step 
24  (the  ASCI  I  data  wi 11  be  read,  converted  to  numeri  c  format, 
and  stored;  this  will  require  a  fewminutes  for  a  large  number 
of  data  points-). 

21.  The  data  wi 11  be  read  from  the  disk  and  converted  from  ASCI  I 
characters  to  numeric  values,  one  data  file  at  a  time.  This 
operation  will  take  several  minutes  to  accomplish  for  a  large 
number  of  data  points.  The  progress  of  the  operation  can  be 
monitored  on  the  bottom  line  of  the  CRT. 

22.  Place  the  data  disk  which  will  contain  the  numeric  data  in  the 
8"  drive  and  press  CONTINUE. 

23.  The  data  will  be  stored  (several  seconds)  and  you  will  be 
prompted  to  place  the  ASCII  data  disk  in  the  8"  disk  drive. 
Press  the  CONTINUE  key  when  this  is  accomplished.  The  ASCII 
data  will  then  be  destroyed. 

24.  Program  operation  wi  1  1  return  to  theAUTOSTart  program. 
A5  .  6   Data  Analysis  .and.  Display 

The  analysis  and  data  display  operations  will  now  be  described. 
The  two  operations  are  described  in-  a  single  section  since  the  present 
system  uses  the  same  routine  to  perform  both  analysis  of  the 
respiratory  data  and  the  display  of  the  analyzed  results. 

Power  up  the  Basic  operating  system  as  described  in  section  A5.2 
of  this  appendix.  If  the  Basic  operating  system  is  powered  up, 
execution  of  the  AUTOSTa r t  program  may  be  accomplished  by  the 

c  orrmand 

LOAD  "AUTOST:  INTERNAL"  ,  1 

Press  the  k2  soft  key  labeled  "ANALYSIS".  This  wi  1  1  cause  the 
ANALYSIS  program  to  be  loaded. 

Press  the  kj  softkey  labeled  "ANALYSIS"  again  to  continue  with 
the  analysis  and  display  program.  ANALYSIS  allows  the  return  to 
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the  AUTOST  program  by  pressing  the  k9  softkey  labeled  "EXIT". 
This  may  be  desired  if  the  ANALYSIS  key  was  accidental  ly  pressed 
from   the   AUTOSTart    program. 

4.  Enter  the  subject's  name  or  the  subject's  idnentifier  (25 
characters  maximum).  This  name  (or  identifier)  wi  11  become  a 
part    of    all    hard    copy   output    of    the  ANALYSIS    routine. 

5.  Previous  execution  of  the  data  compaction  routines,  CAPCRUNCH 
and  DAPCRUNCH,  or  the  analysis  routine,  ANALYSIS,  will  have 
placed  the  subject  data  in  the  9826's  memory.  If  this  is  the 
case,     information    about    the    data    is    displayed    on    the    screen. 

Wi  th   data    in  memory,    perform  steps   6   thru   14  otherwi  se   proceed 
to   step   15. 

6.  Determine    if    the    calibration    data    currently    in   memory    is    to    be 
used     and     respond     to     the     prompt,    'DO    YOU   WISH    TO    USE    THESE 
CALIBRATION  DATA?   (Y/N)'.      If   the   current   cal ibration  data  are 
to   be   used   answer   yes,    'Y',    and  proceed   to   step  8. 

7.  Enter  the  name  of  the  calibration  file  in  response  to  the 
prompt,  'ENTER  THE  CALIBRATION  FILE  FILENAME.'.  The  specified 
calibration   file  will    be    loaded. 

8.  Determine  if  the  respiratory  data  currently  in  memory  is  to  be 
used  and  respond  to  the  prompt,  'DO  YOU  WISH  TO  USE  THESE  B_by_B 
DATA?  (Y/N)'.  If  the  current  respiratory  data  are  to  be  used 
answer   yes,    'Y',    and  proceed   to   step  14. 

9.  Enter  the  number  of  data  point s  which  were  collected  in  response 
to  the  prompt,  'ENTER  THE  TOTAL  NUMBER  OF  POINTS  TO  BE 
ANALYZED'  . 

10.  Enter  the  name  of  the  C02  data  file  in  response  to  the  prompt, 
'ENTER    THE    002    SIGNAL    FILE    NAME'. 
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Enter  the  name  of  the  02  data  file  in  response  to  the  prompt, 
'ENTER  THE  02  SIGNAL  FILE  NAME'.  (If  the  02  file  name  begins 
with  a  0  and  the  remaining  portion  of  the  file  name  is  the  same 
as  the  C02  file  name,  with  the  exception  of  the  first  letter, 
then  simply  press  the  CONTINUE  key.  Example:  02  file  name  is 
OU06N175  and  C02  file  name  is  C1106N175) 
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12.  Enter  the  name  of  the  flow  data  file  in  response  to  the  prompt, 
'ENTER  THE  FLOW  SIGNAL  FILE  NAME'.  (If  the  flow  file  name 
begins  with  a  V  and  the  remaining  portion  of  the  file  name  is 
the  same  as  the  C02  file  name,  with  the  exception  of  the  first 
letter,  then  simply  press  the  CONTINUE  key.  Example:  flow  file 
name  is  V1106N175  and  O02  file  name  is  C1106N175) 

13.  Enter  the  name  of  the  temperature  data  file  in  response  to  the 
prompt,  'ENTER  THE  FLOW  TEMPERATURE  SIGNAL  FILE  NAME'.  (If  the 
temperature  file  name  begins  with  a  T  and  the  remaining  portion 
of  the  file  name  is  the  same  as  the  C02  file  name,  with  the 
exception  of  the  first  letter,  then  simply  press  the  CONTINUE 
key.  Example:  temperature  file  name  is  TU06N175  and  C02  file 
name  is  C1106N175) 

14.  Proceed  to  step  22. 

15.  Determine  if  the  calibration  data  are  to  be  loaded  and  respond 
to  the  prompt,  '  LOAD  CAL I  BRAT  I  ON  FACTORS  FROM  DISK?  (Y/N)'.  If 
calibration  data  are  not  to  be  loaded,  then  answer  no,  'N',  and 
proceed  to  step  17. 

16.  Enter  the  name  of  the  calibration  file  in  response  to  the 
prompt,  'ENTER  THE  CALIBRATION  FILE  FILENAME.'.  The  specified 
calibration  file  will  be  loaded. 

17.  Enter  the  number  of  data  points  which  were  collected  in  response 
to  the  prompt,  'ENTER  THE  TOTAL  NUMBER  OF  POINTS  TO  BE 
ANALYZED'  . 

18.  Enter  the  name  of  the  C02  data  file  in  response  to  the  prompt, 
'ENTER  THE  C02  SIGNAL  FILE  NAME'. 

19.  Enter  the  name  of  the  02  data  file  in  response  to  the  prompt, 
'ENTER  THE  02  SIGNAL  FILE  NAME'.   (If  the  02  file  name  begins 

with  a  0  and  the  remaining  portion  of  the  file  name  is  the  same 
as  the  C02  file  name,  with  the  exception  of  the  first  letter, 
then  simply  press  the  CONTINUE  key.  Example:  02  file  name  is 
O1106N175  and  C02  file  name  is  C1106N175) 


20. 


Enter  the  name  of  the  flow  data  file  in  response  to  the  prompt, 
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'ENTER  THE  FLOW  SIGNAL  FILE  NAME'.  (If  the  flow  file  name 
begins  with  a  V  and  the  remaining  portion  of  the  file  name  is 
the  same  as  the  C02  file  name,  with  the  exception  of  the  first 
letter,  then  simply  press  the  CONTINUE  key.  Example:  flow  file 
name  is  V1106N175  and  002  file  name  is  C1106N17S) 

21.  Enter  the  name  of  the  temperature  data  file  in  response  to  the 
prompt,  'ENTER  THE  FLOW  TEMPERATURE  SIGNAL  FILE  NAME'.  (If  the 
temperature  file  name  begins  with  a  T  and  the  remaining  portion 
of  the  file  name  is  the  same  as  the  C02  file  name,  with  the 
exception  of  the  first  letter,  then  simply  press  the  CONTINUE 
key.  Example:  temperature  file  name  is  T1106N175  and  CO,  file 
name  is  C1106N17S) 

22.  Enter  the  experimental  time  corresponding  to  when  respiratory 
data  collection  began  (generally  60  seconds). 

23.  Enter  a  comment  which  will  be  printed  on  the  hard  copy  output. 

24.  Determine  the  sampling  frequency  used  to  sample  the  respiratory 
data.  If  this  sampling  frequency  is  50  Hz,  then  answer  no,  'N', 
in  response  to  the  prompt,  'CHANGE  SAMPLING  FREQUENCY  FROM  50 

HZ?  (Y/N)'  and  proceed  to  step  26. 

25.  Enter  the  sampling  frequency  used  to  sample  the  respiratory 
data  . 

26.  Determine  if  the  GMS  time  delay  is  to  be  computed  on  a  breath- 
by-breath  basis  or  a  fixed  value  used  and  respond  to  the  prompt, 
'B-BY-B  TIME  DELAY  OR  FIXED  TIME  DELAY  (B/F)?'.  For  a  breath- 
by-breath  time  delay  perform  step  27  and  for  the  fixed  time 
delay  perform  steps  28  and  29. 

27.  Enter  the  average  time  delay  to  be  used  in  case  a  valid  breath- 
by-breath  time  delay  can  not  be  determined.  Continue  to  step 
30. 

28.  The  current  time  delay  is  displayed  on  the  screen.  If  this  time 
delay  is  to  be  used  then  answer  yes,  'Y',  to  the  prompt,  'CHANGE 
TIME  DELAY?  (Y/N)'  and  proceed  to  step  30. 

29.  Enter  the  desired  time  delay. 


A5.26 

30.  Determine  if  the  flow  is  to  be  calculated  using  temperature  and 
viscosity  corrections  and  respond  to  the  prompt,  'USE  TEMP.  AND 
VISCOSITY  CORRECTIONS?  (Y/N)\  If  the  corrections  are  not  to  be 
used   enter   no,    'N\    and  proceed   to   step  35. 

31.  The  ambient  conditions  currently  in  memory  are  displayed  on  the 
screen.  If  these  ambient  conditions  are  correct,  enter  yes, 
'Y',  in  response  to  the  prompt,  'Do  you  wish  to  use  the  ambient 
conditions    above?    (Y/N)'    and   proceed    to    step    35. 

32.  Enter    the    barometric    pressure    (inches    of   mercury). 

33.  Enter    the   percent    relative    humidity. 

34.  Enter    the    room    temperature    (°F). 

35.  Determine  if  alveolar  ventilation  values  based  on  FRC 
corrections  are  desired  and  respond  to  the  prompt,  TJo  you  wish 
to  use  FRC  corrections?  (Y/N)'.'  Respond  negatively,  'N',  to 
this  question  as  the  FRC  calculations  are  not  implemented  in 
this  version  of  the  ANALYSIS  program.  Refer  to  the  reference 
[12]. 

Plotting    the    respi ratnrv  data 

36.  Determine  if  a  plot  of  the  respiratory  data  is  desired  and 
respond  to  the  prompt,  WXJLD  YOU  LIKE  A  PLOT  OF  THE  RESPIRATORY 
DATA?  (Y/N)'.  If  a  plot  is  not  desired,  enter  no,  'N',  and 
continue    to   step   42. 

37.  Enter    the    first   data  point    to  plot. 

38.  Enter  the  last  data  point  to  plot.  At  this  time  the  maximum  and 
minimum  values   for   the   specified  range  are   calculated. 

39.  Once  the  maximum  and  minimum  values  have  been  determined  you 
have  approximately  20  seconds  to  determine  the  plotting  device. 
At  the  end  of  this  time  and  if  no  plotting  device  was  specified 
the  plot  wi  1  1  automatical  ly  be  sent  to  the  9826' s  screen.  If 
the  plotter  is  to  be  used,  press  the  space  bar.  Set  up  the 
plotter.  Enter  'PLOTTER'  (all  capitals)  in  response  to  the 
prompt,     'OUTPUT  ON  THE   PLOTTER  OR   CRT?    (PLOTTER /CRT)'. 

If   the   plot  was   sent   to  the   screen   there,    are   two  options  for 
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obtaining  a  printed  copy.  For  a  small  copy,  press  the  'SHIFT' 
key  and  'DUMP  GRAPHICS'  key  simultaneously.  To  obtain  an 
expanded  copy,  type  the  command  'CALL  Expanded_dump'  and  press 
the   'EXECUTE'  key. 

40.  Press  the  'CONTINUE'  key. 

41.  Determine  if  additional  plotting  is  desired  and  respond  to  the 
prompt,  'REDO  GRAPHICS?  (Y/N)'.  If  additional  plots  are  desired 
enter  yes,    'Y'  and  go  to  step  37. 

Analyzing   the   respiratory  data 

42.  Enter   the   first   data  point   to  analyze. 

43.  Enter   the   last   data   point   to  analyze. 

44.  Select  whether  the  line-by-line  output  of  the  various 
respiratory  volumes  for  each  breath  is  desired.  Generally  this 
information   is   not   needed  and   can  be   obtained    later. 

45.  The  calculation  of  the  breath-by-breath  respiratory  parameters 
will  begin.  The  present  analysis  routine  can  process  2000 
points/min  using  the  temperature  and  viscosity  corrections  and 
7000  points/min  without  the  corrections  (these  rates  are  based 
on   the   omission  of   the    line-by-line   output). 

46.  When  the  specified  data  range  has  been  analyzed  the  mean  values 
are   printed. 

Displaying    the    respiratory   parameters 

47.  Determine  if  the  calculated  breath-by-breath  respiratory 
parameters  are  to  be  displayed  (printed  or  plotted)  and  respond 
to  the  prompt,  'DISPLAY  THE  BREATH-BY-BREATH  DATA?  (Y/N)'.  If 
the  results  are  not  to  be  displayed,  enter  no,  'N',  and  proceed 
to  step  68. 

48.  Select  whether  the  parameters  are  to  be  plotted  (two  parameters 
per    plot)   or   printed. 

49.  Select  how  the  parameters  are  to  be  averaged.  If  displaying  the 
individual  breaths  was  selected  proceed  to  step.  55.  If 
averaging    of    individual    breaths  was    selected    execute    the    next 
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step  (50)  then  proceed  to  step  55.      If  window  averaging  of  the 
parameters  was   selected   execute   steps   51    thru  54. 

50.  Specify  the  number  of  breaths  to  be  averaged  together.  Continue 
to  step  55. 

51.  Refer  to  Figure  2.2.3  for  an  illustration  of  the  window 
averaging  technique.  Enter  the  windowing  period.  The  windowing 
period  is  the  distance  (in  time)  the  center  of  the  window  is 
slid. 

52.  Enter  the  window  width.  The  windowwidth  is  the  time  span  of 
the  window.     All   breaths    in   that   span  are   averaged. 

53.  Enter  the  starting  time.  This  is  the  time  at  which  the  center 
of    the   first  window  is   placed. 

54.  Enter  the  ending  time.  The  window  is  slid  until  the  center  of 
the  window  occurs    after   the   ending   time. 

55.  Determine  if  'Bad  Breaths'  are  to  be  included  in  the  display. 
Bad  breaths  are  those  breaths  which  have  an  inspiratory  or  an 
expiratory   tidal    volume   of   less   than  400  mL. 

56.  If  plotting  of  the  parameters  was  selected  in  step  48,  proceed 
to  the  next  step.  If  printing  of  the  parameters  was  selected 
the   values  will    be   printed,   proceed   to  step  67. 

57.  Enter   the   respiratory  parameter   to  be  displayed   in   the   top  plot. 

58.  Enter  the  respiratory  parameter  to  be  displayed  in  the  bottom 
plot. 

59.  Determine  if  the  plot  is  to  be  displayed  on  the  9826's  screen  or 
the  plotted  on  the   plotter. 

60.  Two  events  may  be  displayed  on  the  plot.  If  the  events  are  not 
to   be    specified   then   proceed   to   step  65. 

61.  Specify   the    time   of   the   first   event. 

62.  Specify   the    the   first   event. 

63.  Specify   the    time   of   the   second   event. 
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64.  Specify   the    second  event. 

65.  Enter   a   title   for   the   plot. 

66.  If  the  plot  was  sent  to  the  screen  (as  specified  in  step  59) 
there  are  two  options  for  obtaining  a  printed  copy.  For  a  small 
copy  press  the  'SHIFT'  key  and  'DUMP  GRAPHICS'  key 
simultaneously.  To  obtain  an  expanded  copy,  type  the  conmand 
'CALL  Expanded_dump'   and   press   the   'EXECUTE'  key. 

67.  Additional  display  of  the  results  is  possible  by  responding  to 
the   prompt,    TJo  you  wish   to   exit    to   the   analysis   routine?    (Y/N)' 

with  a  no,    'N'.      Proceed  to  step  48. 

68.  The  current  subject's  data  can  be  re-analyzed  by  responding  to 
the  prompt,  'REDO  ANALYS I S  ?  (Y/N)' with  a  yes,  'Y'.  Proceed  to 
step  4.  If  the  subject's  data  is  not  to  be  re-analyzed  proceed 
to  step  1. 


A5.7    Storage  .and.  Display  .al _rJi£. Heart. &axe_ Daxa. 

The  storage  of  the  heart  rate  data  will  now  be  described.  The 
display  of  the  heart  rate  is  accomplished  with  Sprick's  Universal 
Plotting  Routine    [16], 

1.  Power  up  the  Basic  operating  system  as  described  in  section  A5.2 
of  this  appendix.  If  the  Basic  operating  system  is  powered  up, 
execution  of  the  AUTOSTart  programmay  be  accomplished  by  the 
corrmand 

LOAD  "AUTOST:  INTERNAL",  1 

2.  Press  the  k4  soft  key  labeled  "STOREHR".  Thi  s  wi  1  1  cause  the 
STOREHR  program  to  be    loaded. 

3.  Press  the  k4  softkey  labeled  "STOREHR"  again  to  continue  with 
the  storage  of  the  heart  rate  values.  STOREHR  allows  the  return 
to  the  AUTOST  program  by  pressing  the  k?  softkey  labeled  "EXIT'. 
This  may  be  desired  if  the  STOREHR  key  was  accidentally  pressed 
from  the  AUTOSTart  program.  If  you  wish  to  plot  the  heart  rate 
values  with  "Sprick's  plotting  routine  press  the  kj  softkey 
labeled  'PLOT'  (refer  to  step  10  for  instructions  on  how  to 
label    the  X-axis   of   the  plot). 
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4.  Enter   the   file  name  wh  i  ch  wi  1 1   contain  the  heart   rate  values. 

5.  Enter  the  heart  rate  value.  Repeat  this  step  for  each  value. 
Do  not  worry  about  mistakes,  as  they  may  be  corrected  later 
(step  6).  If  all  values  have  been  entered  enter,  a  negative 
number. 

6.  Ten  heart  rate  values  are  displayed  on  the  screen.  If  you  wish 
to  alter  any  of  these  values,  enter  'Y'  for  yes  and  continue  to 
step  7.  If  you  do  not  wish  to  alter  any  of  the  displayed  values 
then  enter  'N'  for  no.  If  all  heart  rate  values  have  been 
displayed  then  continue  to  step  8,  otherwise  this  step  will  be 
repeated   for   the  next    ten  heart    rate   values. 

7.  Enter  the  number  corresponding  to  the  value  you  wish  to  change. 
Enter  the  new  heart  rate  value.  Return  to  step  6  for  the 
display  of  the  same  ten  heart  rate  values  including  the  updated 
value . 

8.  The   values   are   stored  on   the   disk   in   the   8"  disk  drive. 

9.  If  you  wish  to  plot  the  heart  rate  values  answer  'Y'  for  yes. 
If  you  wish  to  return  to  the  AUTOSTart  routine  enter  'N'  for  no, 
and  press  the  k9  softkey  labeled  'EXIT'.  The  AUTOSTart  program 
wi  1 1   be   loaded. 

10.  A  mess  age  wi  1  1  be  displayed  on  the  screen  instructing  the  use 
'TIME'  (all  capital  letters)  as  the  X-axis  of  the  plot  to  be 
obtained  using  Sprick's  plotting  routine.  Press  CONTINUE  to 
proceed  to  the  plotting  routine.  Vihen  using  Sprick's  plotting 
routine  enter,  30  for  the  sampling  period  and  Seconds  for  the  X- 
axis   units    in   addition   to   'TIME*   as    the  X-axis. 
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APPENDIX  VI  .   PASCAL  PROGRAM  DOCUMENTATION  AND  LISTING 

This  appendix  gives  the  details  of  the  Pascal  programs  used  by 
the  CBRMS.  The  documentation  for  each  program  is  broken  down  into 
descriptions  of  the  individual  Pascal  procedure s  whi ch  make  up  the 
program.  The  variables  for  a  particular  procedure  will  be  defined  in 
that  procedure's  section.  The  procedures  within  each  program  are 
documented  in  alphabetical  order.  The  variables  within  each  procedure 
are  also  listed  in  alphabetical  order. 

A6  . 1   £AP_2j_  _a_  Pascal  Routine  for  system  Ca  1  i  brat  inn 

The  Pascal  program  CAP2  CCA1  i brat  ion  Jtrog ram,  version  _2j  is  used 
to  generate  calibration  factors  which  relate  the  sampled  data  to  the 
analog  respiratory  signals.  A  flowchart  for  the  program  is  given  in 
Chapter  6,  Section  1.  The  method  used  by  CAP2  to  control  the  DAM  is 
described  by  Riblett  [13].  The  calibration  file  contents  maintain  the 
file  structure  specified  by  Riblett,  one  serial  ASCII  file,  but  has 
been  expanded  to  contain  additional  data.  The  contents  of  the  file  in 
order  are 

Co2_dc_offset  (4  ASCII  bytes) 

02_dc_offset  (4  ASCII  bytes) 

Bin_zero_f low  (4  ASCII  bytes) 

Co2_cal  (25  ASCII  bytes) 

02_cal  (25  ASCII  bytes) 

Non_C_I_flow__cal  (25  ASCII  bytes) 

Non_C_E_f  1  ow_c  a  1  (25  ASCI  I  by  t  e  s  ) 

Time_delay  (25  ASCII  bytes) 

S  (4  ASCII  bytes) 

01  (25  ASCII  bytes) 

Ta  (25  ASCII  bytes) 

Tb   (25  ASCII  bytes) 

Tc  (25  ASCII  bytes) 

Date   (25  ASCII  bytes) 

Corr_I_flow_cal  (25  ASCII  bytes) 

Corr_E_f low_cal   (25  ASCII  bytes) 

Pb   (25  ASCII  bytes) 

Rel_humid  (25  ASCII  bytes) 

Room_temp  (25  ASCII  bytes) 
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A  description  of  each  of  the  procedures  used  by  CAP2  follows. 

A6  . 1 . 1   A5k  Y  or  N  Procedure 

The  procedure  Ask_Y_or_N  (Ask  Yes  or  No)  is  used  to  obtain  only  a 
Yes  or  a  No  response  to  a  question.  The  procedure  returns  the  char- 
acter 'Y'  for  a  Yes  response  and  the  character  'N'  for  a  No  response. 


None 


.  _L0_  the  . 

.  _b_y_  the  procedure 
Q      -  character,  passed  by  reference. 

Variable  def ini  tinns 

Q      -  string  variable  which  contains  a  capital  'Y'  for  a  Yes 
response  or  a  capital  'N'  for  a  No  response. 

A6  . 1  .  2  JiEEP.  Procedure 

The  procedure  BEEP  sounds  an  audible  beep.   This  procedure  is 
used  to  gain  the  operator's  attention. 

Variables  passed  to  the  procedure 
None 


.  .b_y_  the  procedure 


None 


Variable  def ini  tinns 

No  variables  used. 


A6  . 1  .  3   BIT  HI  iM  BIT  TST  Procedures 

BIT_HI  and  BIT_TEST  are  external  assembly  language  procedures. 
These  procedures  are  used  to  control  the  DAM.  BIT_HI  and  BIT_TEST 
procedures  are  documented  by  Riblett  [13]. 
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A6  . 1 . 4   CalC  Incr  vol  Procedure 


The  Ca  1  c_Incr_Vol  (£a_Lc_u  1  a  t  e  the  JLatxeme  n  t  a  1  YnJ_ume)  procedure 
calculates  an  incremental  volume  which  is  used  in  integrating  the  flow. 
Ca  1  c_Incr_Vo  1  is  nested  within  the  Flow  calibration,  Flow_cal, 
procedure.  The  Rel_viscos  function  is  nested  within  Calc_Incr_Vol. 
The  procedure  uses  a  sample  of  the  differential  pressure  signal,  a 
sample  of  the  temperature  signal,  and  the  ambient  conditions  to  compute 
an  incremental  volume.  Two  types  of  incremental  volumes  are  computed, 
one  under  STPD  conditions  the  other  under  ITPnS  conditions. 

Bin_deltaJ  -  integer,  passed  by  value. 
Fh2o    -  real,  passed  by  value. 
T      -  real,  passed  by  value. 
Temperature  -  real,  passed  by  value. 

Va r  i  a b  1  e. s  returned  by  the  procedure 

Corr_Incr_vol  -  real,  passed  by  reference. 
Non_C_Incr_vo 1  -  real,  passed  by  reference. 

Va  r  i  a  b  1  e  def ini  t inns 

Bin_delta_P  -  an  integer  variable  which  is  proportional  to  the 

PTG  differential  pressure  signal. 
Corr_Incr__vol  -  a  real  variable  proportional  to  the  incremental 

volume  under  STPD  conditions  which  flowed  through  the  PTM 

during  the  sampling  period. 
Fh2o    -  a  real  variable  equal  to  the  fractional  concentration  of 

water  vapor  in  the  flow  gas. 
ITPnS_to_STPD  -  a  real  variable  which  converts  the  ITPnS  volume 

to  a  STPD  volume. 
Non_C_Incr_vol  -  a  real  variable  proportional  to  the  incremental 

volume  under  ITPnS  conditions  which  flowed  through  the  PTM 

during  the  sampling  period. 
Rel_Viscosi ty  -  a  real  variable  equal  to  the  viscosity  of  the  gas 

relative  to  the  viscosity  of  room  air  under  STPD 

condi  t  i  ons . 
Temperature  -  a  real  variable  equal  to  the  temperature  of  the 

f  1  ow  gas. 
T      -  a  real  variable  equal  to  the  sampling  period. 
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A6  . 1  .  5  £A£2_  Procedure 

The  CAP2  procedure  provides  the  main  control  of  the  the  calibra- 
tion program,  CAP2.  CAP2  calls  the  calibration  routines;  GASCAL, 
FLOVvCAL,  and  TEMPCAL;  and  stores  the  calibration  factors  in  a  disk 
file.  CAP2  also  calls  the  Ask_Y_or_N,  Beep,  HOLDJUP,  and  Line_feed 
procedures  . 

Variables  passed  to  the  procedure 
None 

Variables  returned  bv  the  procedure 

The  following  variables  are  stored  in  the  calibration  file. 

B  i  n_z  e  r  o_f  low  -  integer. 
Cor r_E_f  1 ow_c a  1  -  real. 
Co  r  r_I_f  1  ow_c  a  1  -  real. 
Co  2_c  a  1  -  real. 

Co 2 dc_offset  -  integer. 

Date    -  character  string. 

'Non_C_E_f low_cal  -  real. 

Non_C_J_f  low_ca  1  -  real. 

Ol      -  real. 

02_c  a  1  -  real. 

02_d c_o ffset  -  integer 

Pb     -  real. 

Rel_humid    -    real. 

Room_temp    -    real. 

S  -    intege  r  . 

Ta         •     -    real. 

Tb  -real. 

Tc  -    real. 

Time_delay   -    real. 

Variable   definitions 

Bin_zero_f low  -  an  integer  variable  equal  to  the  average  sampled 
value    from  the   PTG   channel   with   zero   flow  through   the   PTM. 

Corr_E__f low_cal  -  a  real  variable  relating  binary  data  obtained 
from  the  flow  channel  to  the  the  PTM  differential  pressure 
generated   by   expiratory  flows.     This   calibration   factor 
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does  use  the  temperature  and  viscosity  corrections. 
Corr_flag  -  a  Boolean  variable  which  is  set  to  true  when  the  flow 
signal  is  corrected  to  STPD  conditions  or  is  false  if  the 
flow  signal  is  not  corrected. 
Corr_Incr_Vol  -  a  real  variable  equal  to  the  incremental  volume 
obtained  from  one  flow  sample  using  temperature  and 
viscosity  corrections.  Although  this  variable  is  declared 
within  the  context  of  CAP2  it  is  not  used.  However,  the 
variable  is  used  within  FLCMCAL  but  is  not  declared. 
Therefore,  the  Co r r_I n c r_Vo 1  declaration  should  be  moved 
to  the  FIXMCAL  procedure. 
Corr_I_flow_cal  -  a  real  variable  relating  binary  data  obtained 
from  the  flow  channel  to  the  the  PTM  differential  pressure 
generated  by  inspiratory  flows.   This  calibration  factor 
does  use  the  temperature  and  viscosity  corrections. 
Co2_cal  -  a  real  variable  relating  the  binary  data  collected  from 

the  02  channel  to  fractional  CO,. 
Co2_dc_offset  -  an  integer  variable  equal  to  the  average  binary 
value  obtained  from  the  C02  channel  for  room  air 
concentration  of  CO,. 
Date    -a  string  containing  the  date  the  ca  1  i bra t i  on  was 

performed . 
Device__pointer  -  an  integer  which  is  used  to  indicate  which  mass 

storage  device  is  to  contain  the  calibration  data. 
F      -  a  text  variable  a s soc i a t ed  wi th  the  calibration  file 

specified  by  the  string  variable  Fname. 
Fname   -  a  string  containing  the  calibration  file  name. 
Linel   -  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  1,  the  C02  channel, 
of  the  DAM. 
Line2   -  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  2,  the  02  channel,  of 
the  DAM. 
Line3   -  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  3,  the  flow  channel, 
of  the  DAM. 
Line4   -  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  4,  the  temperature 
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channel,    of    the  DAM. 
MSI_devices    -    a    string    array    containing    three    elements.     These 
elements    correspond    to    the    three   mass    storage   devices 
which    can    be    used    for    the    storage    of    the    calibration   data. 
Array   element    1    contains    #12    corresponding    to  platter   1   of 
the    hard    disk,    element    2    contains    #13   corresponding    to 
platter    2    of    the    hard    disk,    and    element    3   contains    #7 
corresponding    to    the    8-inch   disk   drive. 
Non_C_E_flow_cal    -    a    real    variable    relating    binary  data   obtained 
from  the   flow  channel    to   the    the  PTM  differential    pressure 
generated   by   expiratory  flows.      This   calibration  factor 
does    not    use    temperature    or    viscosity    corrections. 
Non_C_I_f  low_cal    -    a    real    variable    relating    binary  data   obtained 
from  the   flow  channel    to    the    the   PTM  differential    pressure 
generated    by    inspiratory    flows.      This    calibration   factor 
does    not    use    the    temperature    or    viscosity   corrections. 
Non_C_Incr_Vol    -    a    real    variable    equal    to    the    incremental    volume 
obtained   from  one    flow  sample   not   using    the   temperature 
and    viscosity    corrections.       Although    this    variable    is 
declared    within     the     context     of    CAP2     it     is    not     used. 
However,    the    variable    is   used  within  FLO\CAL  but    is   not 
declared.       Therefore,     the    Non_C_Inc  r_Vo 1     declaration 
should   be  moved    to    the    FLCMCAL  procedure. 
NSTRING-    a    string    variable    used    to    represent    the   ASCII    value    of 
an    integer    number. 

01  "    a    real    variable    containing    the    fractional    concentration 

of   Oj    in    the    calibration   gas. 
02_cal    -    a    real    variable    relating    the    binary   data    collected   from 

the   02    channel    to    fractional    02. 
°2— dc— offset    "    an    integer    variable    equal     to    the    average    binary 

value    obtained    from    the    02    channel    when    the   GMS    probe 

samples    the    calibration   gas. 
Pb  -    a    real     variable    set    equal     to    the    ambient    barometric 

pressure   (mm  Hg). 

Q  -    string   variable   containing   the   response   to  a  Yes   or  No 

ques  t  i  on. 

Rel_humid    -    a    real    variable    set    equal    to   the   relative  humidity   in 
the   r  o  om  air. 
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Roorn_temp  -  a  real  variable  set  equal  to  the  ambient  temperature 

(°C). 
RSTRING-  a  string  variable  used  to  represent  the  ASCII  value  of  a 

real  number. 
S      -  an  integer  variable  set  equal  to  the  DAM  sampling 

frequency  (Hz). 

-  an  integer  variable  equal  to  the  number  of  samples  to  be 
collected  form  the  DAM. 

-  a  real  variable  equal  to  the  computed  second  order 
coefficient  of  the  function  relating  the  sampled  temper- 
ature data  to  the  actual  temperature  in  °C. 

-  a  real  variable  equal  to  the  computed  first  order 
coefficient  of  the  function  relating  the  sampled  temper- 
ature data  to  the  actual  temperature  in  °C. 

-  a  real  variable  equal  to  the  computed  zero  order 
coefficient  of  the  function  relating  the  sampled  temper- 


Sam 


Ta 


Tb 


Tc 


TEMP 


ature  data  to  the  actual  temperature 


an  integer  variable  needed  by  the  STKWRITE  function  to 
convert  the  ca 1 ibrat ion  da ta  to  ASCII  strings. 
Time_delay  -  a  real  variable  equal  to  the  fixed  GMS  time  delay 
used  in  the  calibration  routine.  This  value  was  retained 
to  remain  compatible  with  the  calibration  files  generated 
by  Creel's  program  [4]. 


A6.1.6   CLKSET 

The  procedure  CLKSET  sets  the  8253  timer  in  the  DAM  wi th  the 
desired  sampling  frequency.  CLKSET  is  called  by  the  main  CAP2 
procedure  to  set  the  DAM's  sampling  frequency.  This  procedure  was 
designed  by  Riblett  [13]  and  has  no  modifications  for  version  2  of  the 
calibration    program    (CAP2). 


.  passed  _LQ_  the    procedure 


None 


Variables  returned  hy  t-hj_  . 

S      -  integer,  passed  by  reference. 
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Va  r  i  a  I?  1  e    def  ini  t  inns  ,A 

Fl  -    an    integer   used    to    set    the    least    significant    byte   of   the 

8253    t  ime  r . 
Fm  -    an    integer    used    to    set    the   most    significant    byte    of    the 

8253    t  ime  r . 
S  -    an     integer     equal     to    the    user     specified    sampling 

frequency. 
X  -    an    integer    variable    used    to    set    clock    1    of    the    8253 

t  ime  r  . 

A6  . 1  .  7   DATA  mi.I.WT  Procedure 

The  procedure  DATA_COLLECT  provides  the  necessary  control  of  the 
DAM  to  collect  a  set  of  data  from  four  channels.  DATA_COLLECT  is 
called  by  the  calibration  procedures;  GASCAL,  FLCMCAL,  and  TEMPCAL;  to 
sample  the  analog  signals.  DATA_O0LLECT  calls  the  assembly  language 
procedures  BIT_H1  and  BIT_TST  to  test  the  status  of  the  DAM.  This 
procedure  was  designed  by  Riblett  [13]  and  has  only  minor  modifications 
for  version  2  of  the  calibration  program  (CAP2). 

S      -  integer,  passed  by  reference. 
Sam    -  integer,  passed  by  reference. 

Ya r i a ft  1  e a  returned  iv_  the  procedure 

Linel   -  integer  array,  passed  by  reference. 

Line2   -  integer  array,  passed  by  reference. 

Line3   -  integer  array,  passed  by  reference. 

Line4   -  integer  array,  passed  by  reference. 

Va r i a b 1 e  def ini  t ion g 

Chana   -  a  constant  value  equal  to  15359  which  sets  the  DAM's 

analog  multiplexer  so  that  channel  A  is  passed  to  the 

analog  to  digital  converter. 
Chanb   -  a  constant  value  equal  to  13311  which  sets  the  DAM's 

analog  multiplexer  so  that  channel  B  is  passed  to  the 

analog  to  digital  converter. 
Chanc   -  a  constant  value  equal  to  11263  which  sets  the  DAM's 

analog  multiplexer  so  that  channel  C  is  passed  to  the 

analog  to  digital  converter. 
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Chand      -    a    constant    value    equal     to    9215   which    sets    the   DAM's 

analog   multiplexer    so    that    channel    D    is    passed    to    the 

analog    to  digital    converter. 
Del  -    an    integer    variable    used    in    the    delay    loop    that    allows 

the    sample    and    hold    amplifiers    to    reach    equilibrium  once 

the   hold    command    is    given. 
I  -    an    integer    variable   used   as   a    loop  counter   and  a   pointer 

into     the     four     data     arrays     during     collection     of     the 

specified    number    of    datum  points. 
Linel      -    an    integer    array   containing    the    sampled   data  acquired 

from   the   C02    channel    of    the   DAM. 
Line2      -    an    integer   array  containing    the    s  amp  led   data  acquired 

from  the   02    channel    of    the   DAM. 
Line3      -    an    integer   array   containing    the   sampled  data  acquired 

from  the    flow  channel    of    the  DAM. 
Line4      -    an   integer   array  containing    the   sampled   data   acquired 

from  the    temperature    channel    of    the   DAM. 
Mask        -    a    constant    value    equal    to   4095  which    is   used   to  mask  al  1 

but    the    12    least    significant    data   bits. 
R4  -    an    integer    variable  which    is    loaded  with   the   contents    of 

register    4    of    the    GPIO. 
R6  -    an    integer    variable  which    is    loaded  with    the    contents   of 

register    6    of    the   GPIO. 
S  -    an     integer     equal     to     the    user     specified    sampling 

frequency. 

-  an  integer  variable  equal  to  the  number  of  samples  to  be 

collected  from  the  DAM. 


Sam 


A6  . 1  .  8   FimCAI  . 

The  procedure  FLOTCAL  calculates  the  calibration  factors  which 
relate  the  sampled  data  to  the  flow  through  the  PTM.  FLOWCAL  has  two 
procedures  nested  within  it,  Ca  1  c_I n c r_Vo  1  and  Va  1  id_pointer.  FLCWCAL 
also  calls  the  Ask_Y_or_N,  Beep,  DATA_COLLECT,  HOLDUP,  and  Line_feed. 

The  flow  cal ibrat ion  procedure  uses  several  constant  values  which 
will  need  to  be  changed  wi th  a  different  experimental  setup.  These 
constant  variables  are 

Co r r_Pump_v o  1  -  the  volume  of  the  calibration  pump  converted  to 
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STPD  conditions,  currently  0.560  L  (STPD). 
Firs  t_e 1 ement  -  the  first  element  of  the  water  vapor  pressure 

array,  currently  0. 
La s t_e  1 ement  -  the  last  element  of  the  water  vapor  pressure 

array,  currently  250. 
Max_Temp  -  the  maximum  temperature  represented  in  the  water  vapor 

pressure  array,  currently  45°C. 
Min_Temp  -  the  minimum  temperature  represented  in  the  water  vapor 

pressure  array,  currently  20°C. 
Non_C_Pump_vo  1  -  the  volume  of  the  calibration  pump  under  ATPS 

conditions,  currently  0.647  L  (ATPS). 
Vap_Fi  1  e_name  -  the  location  and  file  name  of  the  Pascal  file 

containing  the  water  vapor  pressure  array,  currently 

'#14:VAP_PASCAL'  (the  hard  disk,  platter  3,  under  the  file 

name  VAP_PASCAL). 

Va r  i  a b  1  e s  passed  _lq_  the  procedure 

Corr flag  -  Boolean,  passed  by  value. 

Pb     -  real,  passed  by  value. 
Rel_humid  -  real,  passed  by  value. 
Room_temp  -  real,  passed  by  value. 
S      -  integer,  passed  by  value. 
Sam    -  integer,  passed  by  value. 
Ta      -  real,  passed  by  value. 
Tb     -  real,  passed  by  value. 
Tc      -  real,  passed  by  value. 

Va r i a b  1  e s  returned  iy_  the  procedure 

Bin zero_flow  -  integer,  passed  by  reference. 

Co r r_E_f 1  ow_c a  1  -  real,  passed  by  reference. 
Co r r_I_f  1  ow__c a  1  -  real,  passed  by  reference. 
Non_C_E_f low_cal  -  real,  passed  by  reference. 
Non__C_I_f low_cal  -  real,  passed  by  reference. 

Variable  def  in  i  t.  ions 

A      -  an  integer  variable  used  as  an  index  into  the  sampled 

PTG  signal  array,  Line3. 
Array_pointer  -  an  integer  variable  used  as  an  index  into  the 
water  vapor  pressure  array,  Vap. 
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Bin_delta_P     -     an     integer     variable     equal      to     the     binary 

differential    pressure   developed   by   the   PTM.      This    is   equal 

to    the    sampled    value  minus    the    binary   value    corresponding 

to    zero   differential    pressure    (zero    flow). 
Bin_zero_f  1  ow   -    an    integer    variable    equal    to    the    average    binary 

value   s  amp  led   for   zero   fl  ow. 
Corr_^ire    -    a    real    variable    used    in    the   expiratory   integration 

loop   to   sum  up  the   volume   (binary  representation)  of  air 

expired    by    the    calibration   pump   using    the    flow  calculated 

under    STPD   conditions. 
Corr_Airi     -    a    real    variable    used    in    the    inspiratory    integration 

loop   to   sum  up  the   volume   (binary  representation)   of  air 

inspired   by   the   calibration  pump  using   the    flowcalculated 

under    STPD   conditions. 
Corr_JAvg_Vol_expr    -    a    real    variable    equal    to    the    average    volume 

(binary   representation)   expired   by   the    calibration  pump 

calculated   under   STPD  conditions. 
Corr_Avg_Vol_insp    -    a    real    variable    equal    to    the    average    volume 

(binary    representation)    inspired  by   the   calibration  pump 

calculated   under    STPD  conditions. 
Co r r_E_f 1 ow_c a  1    -    a    real    variable    equal     to    the    flow  calibration 

factor    which    converts     the    sampled    expiratory    flow 

(converted    to    STPD   conditions)    to    the    units    of    liters    per 

second. 
Corr_flag    -    a    Boolean   variable    indicating    the   use    of    temperature 

and    viscosity    corrections    in    the    calibration    of    the    flow 

signal  . 
Corr_Incr_Vol    -    a    real    variable    equal    to    the    incremental    volume 

obtained     from    one     flow    s  amp  1  e     using     t  emp  erature     and 

viscosity    corrections. 
Co  r  r_I_f  1  ow_c  a  1     -    a    real    variable    equal     to    the    f 1 ow  ca 1 i bra t ion 

factor   which    converts     the     sampled    inspiratory    flow  (con- 
verted   to    STPD   conditions)    to    the    units    of    liters    per 

second . 
Cor  r_Pump_vo 1     -    a    constant    value    equal     to    the    volume    of    the 

calibration    pump    converted    to    STPD   conditions,    0.560  L 

(STPD). 
Cor r_To  t_vo l_expr    -    a    real    variable    equal    to    the    total    STPD 
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volume  expired  by  all  pump  cycles. 
Corr_ Tot_vo l_insp  -  a  real  variable  equal  to  the  total  STPD 

volume  inspired  by  all  pump  cycles. 
Fh2o    -  the  fractional  concentration  of  water  vapor  in  the  room 

air. 
First_element  -  a  constant  value  equal  to  the  first  element  of 

the  water  vapor  pressure  array,  0. 
1      -  an  integer  used  as  an  array  pointer  into  the  flow  signal 

array,  Line3. 
Last_element  -  a  constant  value  equal  to  the  last  element  of  the 

water  vapor  pressure  array,  250. 
Linel   -  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  1,  the  002  channel, 
of  the  DAM. 
Line2   -  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  2,  the  02  channel,  of 
the  DAM. 
Line3   -  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  3,  the  flow  channel, 
of  the  DAM. 
Line4   -  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  4,  the  temperature 
channel,  of  the  DAM. 
Max_Temp  -  a  constant  value  equal  to  the  maximum  temperature 

represented  in  the  water  vapor  pressure  array,  45°C. 
Min_Temp  -  a  constant  value  equal  to  the  minimum  temperature 

represented  in  the  water  vapor  pressure  array,  20°C. 
Non_C-Aire  -  a  real  variable  used  in  the  expiratory  integration 
loop  to  sumup  the  vol  ume  (binary  representation)  of  air 
expired  by  the  calibration  pump  using  the  under  flow 
calculated  ATPS  conditions. 
Non_CLAiri  -  a  real  variable  used  in  the  inspiratory  integration 
loop  to  sumup  the  volume  (binary  representation)  of  air 
inspired  by  the  calibration  pump  using  the  under  flow 
calculated  ATPS  conditions. 
Non_C_Avg_Vol_expr  -  a  real  variable  equal  to  the  average  volume 
(binary  representation)  expired'by  the  calibration  pump 
under  ATPS  conditions. 
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Non_C_j\vg_Vol_insp  -  a  real  variable  equal  to  the  average  volume 
(binary  representation)  inspired  by  the  calibration  pump 
under  ATPS  conditions. 
Non_C_E_f  low_ca  1  -  a  real  variable  equal  to  the  f  1  ow  ca  1  ibrat  ion 
factor  which  converts  the  sampled  expiratory  flow  to  the 
units  of  liters  per  second. 
Non_C_I_f  low_ca 1  -  a  real  variable  equal  to  the  f low  cal ibrat ion 
factor  which  converts  the  sampled  inspiratory  flow  to  the 
units  of  liters  per  second. 
Non_C_Incr_Vo 1  -  a  real  variable  equal  to  the  incremental  volume 
obtained  from  one  flow  sample  not  using  the  temperature 
and  viscosity  corrections. 
Non_C_J>ump_vo  1  -  a  constant  value  equal  to  the  volume  of  the 

calibration  pump  under  ATPS  conditions,  0.647  L  (ATPS). 
Non_C_Tot_vo  l_expr  -  a  real  variable  equal  to  the  total  ATPS 

volume  expired  by  all  pump  eye  1 es. 
Non_C_Tot_vo l_insp  -  a  real  variable  equal  to  the  total  ATPS 

volume  inspired  by  all  pump  cycles. 
No_breaths  -  an  integer  variable  equal  to  the  number  of  calibra- 
tion pump  cycles  (breaths). 
Pb     -  a  real  variable  equal  to  the  barometric  pressure. 
Rel_humid  -  a  real  variable  equal  to  the  ambient  relative 

humid  i  ty . 
Room_temp  -  a  real  variable  equal  to  the  ambient  temperature. 
S      -  an  integer  variable  equal  to  the  sampling  frequency. 
Sam    -  an  integer  variable  equal  to  the  number  of  samples  to  be 

collected  from  the  DAM. 
St i 1  ^calculating  -  a  Boolean  variable  which  is  True  as  long  as 

flow  data  remains  to  be  integrated. 
Still_expire  -  a  Boolean  variable  which  is  True  when  the  flow  is 

an  expiratory  flows. 
St  i  1 1— inspire  -  a  Boolean  variable  which  is  True  when  the  flow  is 

an  inspiratory  flows. 
T      -  a  real  variable  equal  to  the  sampling  period  (Seconds). 
Ta     "  a  real  variable  equal  to  the  computed  second  order 
coefficient  of  the  function  relating  the  sampled  temper- 
ature data  to  the  actual  temperature  in  °C. 
Tb     "  a  real  variable  equal  to  the  computed  first  order 
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coefficient  of  the  function  relating  the  sampled  temper- 
ature data  to  the  actual  temperature  in  °C. 

Tc  "  a  real  variable  equal  to  the  computed  zero  order 
coefficient  of  the  function  relating  the  sampled  temper- 
ature data  to  the  actual  temperature  in  °C. 

Temperature  -  a  real  variable  equal  to  the  temperature  of  the 
flow  signal.  The  temperature  is  calculated  using  the 
sampled  temperature  signal  and  the  temperature  calibration 
factors;  Ta ,  Tb,  and  Tc. 

Tot_zero  -  an  integer  variable  equal  to  the  sum  of  the  sampled 
PTG  data  when  the  PTM  is  isolated  from  flow. 

VaP  "  a  real  array  containing  the  water  vapor  pressures 
values . 

Vap_file  -  a  real  file  containing  the  water  vapor  pressure 
values . 

Vap_f i 1 e_name  -  a  constant  character  string  containing  the  name 
of  the  water  vapor  pressure  file,  '#14:VAP_PASCAL'. 


A6 . 1 . 9  GASCAL  . 


The  gas  calibration  procedure,  GASCAL,  calibrates  the  Perkin- 
Elmer  gas  mass  spectrometer  for  both  the  C02  and  02  channels.  This 
procedure  was  designed  by  Riblett  [13]  and  has  only  minor  modifications 
for  version  2  of  the  calibration  program  (CAP2). 

Var  i  a  hi  n  passed  to  the  procedure 

S      -  integer,  passed  by  reference. 
Sam    -  integer,  passed  by  reference. 

Variables  returned  by  the  procedure 

Co2_cal  -  real,  passed  by  value. 
Co2_dc_of f se t  -  integer,  passed  by  value. 
01      -  real,  passed  by  value. 
02_cal  -  real,  passed  by  value. 
02_dc_offset  -  integer,  passed  by  value. 

Variable  definitions 

Avg_002_cal_gas  -  an  integer  variable  containing  the  average  of 
the  sampled  data  obtained  from  the  C02  channel  when  the 
GMS  probe  was  placed  in  the  calibration  gas. 
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Avg_002_room_air  -  an  integer  variable  containing  the  average  of 

the  samp  led  data  obtained  from  the  C02  channel  when  the 

GMS  probe  was  placed  in  room  air. 
Avg_02_ca  l_gas  -  an  integer  variable  containing  the  average  of 

the  sampled  data  obtained  from  the  02  channel  when  the  GMS 

probe  was  placed  in  the  calibration  gas. 
Avg_02_room_ai r  -  an  integer  variable  containing  the  average  of 

the  sampled  data  obtained  from  the  02  channel  when  the  GMS 

probe^was  placed  in  room  air. 
Ch     -  a  real  variable  containing  the  fractional  concentration 

of  CO2  in  the  calibration  gas. 
CI      -  a  real  variable  containing  the  fractional  concentration 

of  C02  in  room  a  i  r. 
Co2_cal  -  a  real  variable  relating  the  binary  data  collected  from 

the  C02  channel  to  fractional  C02. 
Co2_dc_of f set  -  an  integer  variable  equal  to  the  average  binary 

value  obtained  from  the  C02  channel  for  room  air 

concentration  of  C02. 
I      -  an  integer  variable  used  as  a  loop  counter  and  a  pointer 

into  the  data  arrays. 
Linel   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  1,  the  C02  channel, 

of  the  DAM. 
Line2   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  2,  the  02  channel,  of 

the  DAM. 
Line3   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  3,  the  flow  channel, 

of  the  DAM. 
Line4   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  4,  the  temperature 

channel,  of  the  DAM. 
01      -  a  real  variable  containing  the  fractional  concentration 

of  02  in  the  calibration  gas. 
Oh     "a  real  variable  containing  the  fractional  concentration 

of  02  in  room  air. 
02_cal  -  a  real  variable  relating  the  binary  data  collected  from 

the  02  channel  to  fractional  02. 
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02_dc_offset  -  an  integer  variable  equal  to  the  average  binary 
value  obtained  from  the  02  channel  for  the  02  concentra- 
tion in  the  calibration  gas. 
S      -  an  integer  variable  equal  to  the  sampling  frequency. 
Sam    -  an  integer  variable  equal  to  the  number  of  samples  to  be 
collected  from  the  DAM. 

The  hold  up  procedure,  HOLD_UP,  pauses  program  exe cut  ion  until 
the  operator  is  ready  to  proceed.  To  continue  program  execut i on  the 
operator  must  press  the  'ENTER'  key.  This  procedure  was  designed  by 
Riblett  [13]  and  has  no  modifications  for  version  2  of  the  calibration 
program  (CAP2). 


Var  iabl  es  passed  _Lo_  the  procedure 
None 


.  _b_y_  the  procedure 


None 


Variable  def in  i  r i  nns 

No  variables  used. 

A6  . 1 . 1 1   Line  feed  Procedure 

The  line  feed  procedure,  Line_feed,  sends  a  specified  number  of 
1  ine  feeds  to  the  screen. 

Va I  i  a b  1  e S  passed  JLC_  the  procedure 

I       -  integer,  passed  by  value. 

Va  r  i  a  b  I  e  s  returned  _b_y_  the  . 
None 


Variable  def ini  t inns 

I  -  an  integer  variable  containing  the  number  of  line  feeds 
to  send  to  the  screen. 

J  -  an  integer  variable  used  as  a  loop  counter.  J  is 
incremented  for  each  line  feed  which  is  sent  until  it  is 
equal  to  the  number  of  line  feeds  to  be  sent,  I. 
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A6 . 1 . 1 2  Rel  VJSCOS  Functi 


The  relative  viscosity  function,  Rel_viscos,  returns  a  real  value 
equal  to  the  viscosity  of  the  flow  gas  relative  to  the  the  viscosity  of 
room  air  under  STPD  conditions. 

Va r  i  a h  1  e. s  passed  to  the  procedure 

FH20   -  real,  passed  by  value. 
Temperature  -  real,  passed  by  value. 

Va r i a b  1  e s  returned  _b_y_  the  procedure 
Not  applicable. 

Variable  def ini  tinns 

FC02  -  a  real  variable  containing  the  fractional  concentration 
of  C02  in  the  room  air  taking  into  account  the  amount  of 
water  vapor  in  the  room. 

-  a  real  variable  containing  the  fractional  concentration 
of  water  vapor  in  the  room  air. 

-  a  real  variable  containing  the  fractional  concentration 
of  N2  in  the  room  air  taking  into  account  the  amount  of 
water  vapor  in  the  room. 

-  a  real  variable  containing  the  fractional  concentration 


FH20 


FN2 


F02 


water  vapor  in  the  room. 
Temperature  -  a  real  variable  containing  the  instantaneous 

temperature  of  the  flow  gas. 
Vis_002  -  the  viscosity  of  002  in  the  flow  gas. 
Vis_H20  -  the  viscosity  of  H20  in  the  flow  gas. 
Vis_N2   -  the  viscosity  of  N2  in  the  flow  gas. 
Vis_02   -  the  viscosity  of  02  in  the  flow  gas. 
Vis_STPD  -  the  viscosity  of  room  air  under  STPD  conditions. 


A6.1.13  TFMPCA1.  Procedure 

The  temperature  calibration  procedure,  TEMP_CAL,  calculates  the 
calibration  factors  for  the  temperature  transducer.  The  temperature 
calibration  factors  are  the  coefficients  of  a  second  order  polynomial. 
This  procedure  was  designed  by  Riblett  [13]  and  has  only  minor 
modifications  for  version  2  of  the  calibration  program  (CAP2). 
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TEMP_CAL  uses  calibration  parameters  for  the  thermometer  used  to 
calibrate  the  thermocouple.  These  parameters  allow  a  thermometer 
reading  entered  by  the  operator  to  be  converted  to  the  true  temper- 
ature. When  a  new  thermometer  is  used  these  calibration  factors  must 
be  determined  and  placed  in  the  TEMP_CAL  procedure.  The  constant 
variable,  Thermome  ter_ca  l_Y_int ,  must  be  set  equal  to  the  y  intercept 
of  the  thermometer's  calibration  curve.  The  constant  variable, 
Thermomet er_ca  1_S1 ope,  must  be  set  equal  to  the  slope  of  the  calibra- 
tion curve. 

Va  r  i  a  b 1 e  s  passed  _lc_  the  procedure 

S      -  integer,  passed  by  reference. 
Sam    -  integer,  passed  by  reference. 

Variables  returned  ix  the  procedure 

Ta  -  real,  passed  by  reference. 

Tb  -  real,  passed  by  reference. 

Tc  -  real,  passed  by  reference. 

Variable  def ini  t inns 

Bin_temp  -  a  real  two  dimensional  array  (matrix)  used  to  compute 

the  temperature  calibration  coefficients. 
Bin_temp_inv  -  a  real  two  dimensional  array  (matrix)  equal  to  the 

inverse  of  Bin_temp. 
I      -  an  integer  variable  used  as  a  loop  counter  and  a  pointer 

into  the  temperature  data  array. 
Linel   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  1,  the  002  channel, 

of  the  DAM. 
Line2   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  2,  the  0,  channel,  of 

the  DAM. 
Line3   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  3,  the  flow  channel, 

of  the  DAM. 
Line4   -  an  integer  array,  of  24,000  elements,  containing  the 

s  amp  led  values  obtained  from  channel  4,  the  temperature 

channel,  of  the  DAM. 
Norm_a  -  a  real  variable  containing  the  normal  of  the  B  i  n_t  emp 
ma  t  r  i  x . 
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S      -  an  integer  variable  equal  to  the  sampling  frequency. 

Sam  -  an  integer  variable  equal  to  the  number  of  samples  to  be 
collected  from  the  DAM. 

Ta  -  a  real  variable  equal  to  the  computed  second  order 
coefficient  of  the  function  relating  the  sampled  temper- 
ature data  to  the  actual  temperature  in  °C. 

■Tb  -  a  real  variable  equal  to  the  computed  first  order 
coefficient  of  the  function  relating  the  sampled  temper- 
ature data  to  the  actual  temperature  in  °C. 

Tc  -a  real  variable  equal  to  the  computed  zero  order 
coefficient  of  the  function  relating  the  sampled  temper- 
ature data  to  the  actual  temperature  in  °C. 

The  rmometer_ca  1_S lope  -  a  constant  variable  equal  to  the  slope  of 
the  calibration  thermometer's  calibration  curve.  With  the 
current  calibration  thermometer  this  value  is  1.0. 

The  rmome  t e r_ca l_Y_int  -  a  constant  variable  equal  to  the  y 
intercept  of  the  calibration  thermometer's  calibration 
curve.  With  the  current  calibration  thermometer  this 
value  is  -0.35. 

Thigh  -  a  real  variable  equal  to  the  temperature  of  the  high 
temperature  water  bath. 

Thigh_bin  -  an  integer  variable  equal  to  the  average  binary  value 
of  the  sampled  temperature  data  read  for  the  high  temper- 
ature bath. 

Tlow  -  a  real  variable  equal  to  the  temperature  of  the  low 
temperature  water  bath. 

Tlow__bin  -  an  integer  variable  equal  to  the  average  binary  value 
of  the  sampled  temperature  data  read  for  the  low  temper- 
ature bath. 

Tmid  -  a  real  variable  equal  to  the  temperature  of  the  middle 
temperature  water  bath. 

Tmid_bin  -  an  integer  variable  equal  to  the  average  binary  value 
of  the  sampled  temperature  data  read  for  the  middle  temp- 
erature bath. 

Tot_temp  -  an  integer  variable  containing  the  sum  of  all  samples 
read  from  the  temperature  channel. 
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A6  . 1 . 1 4   Val id  pointer  Procedure 

The  procedure,  Va 1 id_point er,  is  used  to  determine  if  the  pointer 
into  the  saturated  water  vapor  array  is  within  the  limits  of  the  array. 
This  procedure  was  originally  designedwith  the  conception  that  the 
fractional  concentration  of  water  vapor  in  the  flow  gas  would  be 
determined  from  the  instantaneous  temperature  of  the  flow  gas.  In  this 
instance,  the  Val id_pointer  procedure  would  protect  against  t empe r  - 
atures  computed  from  bad  sampled  temperature  data  points  which  result 
from  'glitches'  by  the  DAM.  In  this  case  the  computed  temperature 
would  point  to  a  water  vapor  pressure  value  which  is  beyond  the  bounds 
of  the  water  vapor  pressure  array  and  thereby  causing  the  CAP2  program 
to  'crash'.  The  Vali d_p ointer  procedure  would  protect  against  this 
possibility  by  checking  to  make  certain  the  water  vapor  pointer  is 
wi  thin  bounds. 

Va r i a b  1  e s  passed  _cn.  the  procedure 

Array_point er  -  integer,  passed  by  reference. 

Va  r  i  a  b  I  e  S  returned  _b_y_  the  procedure 

Array_point er  -  integer,  passed  by  reference. 

Variable  def ini  t  inn* 

Array_j>oint er  -  an  integer  variable  containing  the  pointer  into 
the  water  vapor  pressure  table  that  is  to  be  checked. 
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A6 . 1 .  15     £AE1  Program  Listing 

$SYSPRCG  ON$ 

SLINES  57$ 

$TABLES$ 

$REF  50$    ,  {ALLOCATE  ROOM  FOR  REFERENCE  TABLE} 

PROGRAM  CAP2(  INPUT, OUTPUT); 

{**m«**»«»»******«********»»*****»»********»***»im  ***»»****»***«*«**  *«*»***» 

SYSTEM  CALIBRATION  ROUTINE 

PASCAL  REV  2.1   SOURCE  FILENAME:      CAP2.TEXT 

Department  of  Electrical  and  Computer  Engineering 
Kansas  State  University 

REVISION       DATE  PROGRAMvER 


1-0  JUNE  28,  1984  LOREN  E.  RIBLETT,  JR. 

2.0  August  31,1984         Michael  Masters 

tlt>»>lt<S>t«»l|tt<t>tt»ttltll >>t<tttttt>«l>t«»tt>ttltttttl>tttM 

PURPOSE 

THIS  ROUTINE  PERFORMS  ALL  THE  NECESSARY  ACTIONS  TO  CALIBRATE 
THE  BREATH-BY-BREATH  RESPIRATORY  SYSTEMS  INSTRUMENTATION  AND 
STORES  THE  CALIBRATION  FACTORS    IN  ASCII  CALIBRATION  FILES. 

ROUTINE(S)  CALLED  BY  THIS  ROUTINE 

BIT_TST  -    68000  ASSFABLY  MXULE  THAT  WAITS  UNTIL  THE  ECC  BIT 

ON  THE  DAM  GOES  HIGH,   THEN  LOW 
BIT_HI    -      68000  ASSEMBLY  MXULE  THAT  WVITS  UNTIL  THE  EOC  BIT 

ON  THE  DAM  GOES  LOW 
CLKSET  -      INTERNAL  PROCEDURE  THAT  SETS  THE  8253  TIMER  CHIP 

FOR  THE  PROPER  SAMPLING  FREQUENCY 
HDLQJJP   -    INTERNAL  PROCEDURE  FOR  TEMPORARY  PAUSING  OF  PROGRAM 

OPERATION 
DATA_COLLECT   -    INTERNAL   PROCEDURE  THAT  CONTROLS  THE  DAM  IN 

PROPER    FASHION   TO  COLLECT  THE   DESIRED   NUMBER 

DATA  POINTS 
GASCAL   -      INTERNAL  PROCEDURE  THAT  CALIBRATES  THE  PERKIN-ELMER 

GAS  MASS  SPECTROMETER 
FLCWCAL   -    INTERNAL  PROCEDURE  THAT  CALIBRATES  THE  FLEISCH/ 

GODART  FLOW  APPARATUS 
TEMPCAL  -    INTERNAL  PROCEDURE  THAT  CALIBRATES  THE  RESPIRATORY 

TEMPERATURE  TRANSDUCER 


THE 
0 


BEEP 


-   Sounds   an  audible   beep   to  alert    the   operator. 


AslOLor_N  -  Obtains    the    response    to   a  yes   or  no  question 

and  allows  only  a    'Y',    'y',    'N',   or   'n'  response. 

Line_feed   -   Sends   a   specified  number   of    line   feeds   to  the 
t  e  rmi  na  1 . 

NOTE   1 :      THE  DAM  SHOULD  BE  CONNECTED  TO  THE  HP9826  COMPUTER  VIA  A 
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GPIO  INTERFACE  AT  SELECT  CCDE  #12.  THIS  INSURES  THE  PROPER 
DEVICE  ADDRESS  FOR  SENDING  AND  RECEIVING  INFORMATION  BETWEEN 
THE  DAM  AND  THE  HP9826. 

NOTE  2:  TOO  EXTERNAL  68000  ASSEMBLY  LANGUAGE  ROUTINES  (BIT_JST  AND 
BIT_HI)  ARE  UTILIZED  BY  CAP2  TO  HANDLE  THE  HIGH  SPEED 
•  REQUIREMENTS  NEEDED  TO  MONITOR  THE  EOC  (End  Of  Conversion) 
SIGNAL  FROM  THE  DAM. 

NOTE  3:   BEEP  Procedure.  The  procedure  BEEP  was  written  to  sound  an 
audible  beep  to  the  operator.  This  is  especially  useful  for 
prompting  for  operator  input  bring  something  to  the  oper- 
ators attention. 

NOTE  4:   Linefeed  Procedure.  The  procedure  Line_feed  was  written  to 
send  a  specified  number  of  line  feeds  to  the  terminal. 

NOTE  5:   FCLDJJP  PROCEDURE.   THE  PROCEDURE  HOLDUP  WAITS  FOR  THE  OPER- 
ATOR TO  PRESS  THE  ENTER  KEY  FOR  EXECUTION  TO  RESUME. 

NOTE  6:   Ask_Y_or_N  Procedure.  The  procedure  Ask_Y_or_N  prompts  the 
operator  for  either  a  yes  response  (  a  'Y'  or  a  'y')  or  a  no 
rsponse  ('N'  or  'n').   The  procedure  continually  prompts  for 
a  yes  or  no  response  un til  eitherthe  'Y'  key,  'y'  key,  'N' 
key,  or  'n'  key  is  entered.  The  operatory  response  is 
returned. 

NOTE  7:   CAP2'S  CLKSET  PROCEDURE  SETS  THE  8253  TIMER  CHIP  ON  THE  DAM 
TO  THE  DESIRED  SAMPLING  FREQUENCY.  A  MAXIMUM  SAMPLING  RATE 
OF  350  HZ  IS  RECOMMENDED.  THIS  VALUE  MAY  HAVE  TO  BE  REDUCED 
IF  SUBSTANTIAL  ADDITIONS  TO  THE  PROCEDURE  DATA_COLLECT  ARE 
MADE. 

NOTE  8:   PROCEDURE  DATA_COLLECT  IS  USED  BY  CAP2  TO  SAMPLE  THE  NECES- 
SARY CHANNELS  FOR  CALIBRATION  PURPOSES.   IT  (DATAJDLLECT) 
IS  IDENTICAL  TO  THE  DATA_COLLECT  PROCEDURE  USED  BY  DAP  .CODE. 

NOTE  9:   PROCEDURE  GASCAL  IS  DESIGNED  TO  CALIBRATE  THE  PERKIN-ELMER 
GAS  MASS  SPECTROMETER  FOR  BOTH  THE  002  (CHANNEL  l)  AND  02 
(CHANNEL  2)  DAM  CHANNELS. 

NOTE  10:  PROCEDURE  FLCttCAL  IS  USED  TO  CALIBRATE  THE  FLEISCH/GODART 

PNEUMOTACH  ASSEMBLY.   FLCRCAL  DETERMINES  NOT  ONLY  THE  BINARY 
VALUE  FOR  ZERO  FLOW  BUT  ALSO  COMPUTES  INSPIRATORY  AND 
EXPIRATORY  FLOW  CALIBRATION  FACTORS  FOR  BOTH  THE 
NON-CORRECTED  DATA  AND  THE  CORRECTED  DATA. 

NOTE  11:  PROCEDURE  TEMPCAL  IS  DESIGNED  TO  CALIBRATE  THE  THERMOCOUPLE 
FOR  MEASURING  RESPIRATORY  TEMPERATURE.  TEMPCAL  DETERMINES  A 
2ND  ORDER  EQUATION  FOR  CONVERTING  BINARY  DAM  FIGURES  TO 
ACTUAL  TEMPERATURE  VALUES. 

NOTE  12:  CAP2  CONVERTS  ALL  THE  CALIBRATION  FACTORS  TO  ASCII  UNITS  AND 
STORES  THESE  UNITS  IN  A  SINGLE  ASCII  DATA  FILE 

NOTE  13:  SEE  EXTERNAL  PROGRAM  DOCUMENTATION  FOR  MORE  DETAILS. 

„_  (***  LOAD  NECESSARY  LIBRARY  MODULES  ***} 

IMPORT  IODECLARATIONS, 

GENERAL_0, 

I0CGM\SM; 
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CONST  Time_delay=380.0 


!***  SET  PROGRAM  CONSTANTS  ***} 

{AVERAGE  TIME  DELAY  STORED  WITH  CAL  DATA} 


{***  DECLARE  POUR  LARGE  EXTERNAL  DATA  ARRAYS  AND  POINTERS  ***} 

TYPE  L1=ARRAY  [1..5000]  OF  INTEGER;      {C02  CHANNEL  DATA  ARRAY} 
PT1--L1;     {POINTER  TO  ARRAY  LI} 

L2-ARRAY  [1..5000]  OF  INTEGER;     {02  CHANNEL  DATA  ARRAY} 
PT2=~L2;     {POINTER  TO  ARRAY  L2} 

L3=ARRAY  [1..5000]  OF  INTEGER;     {FLOV  CHANNEL  DATA  ARRAY} 
PT3=-L3;     {POINTER  TO  ARRAY  L3} 

L4-ARRAY  [1..5000]  OF  INTEGER;      {TEMPERATURE  CHANNEL  DATA  ARRAY} 
PT4--L4;      {POINTER  TO  ARRAY  L4} 


{" 


DECLARE  PROGRAM  VARIABLES 


VAR  S,Sam,TEMP,Co2_dc_offset, 
02_dc_offset  ,Bin_zero_J'low, 
GPINT[ 7077890] 
01,Co2_cal,02_cal, 
Non_C_I_flov£_cal  ,Non_C_E_f  low_cal , 
Corr_I_f  low_cal  ,Corr_E_f  low_cal , 
Ta.Tb.Tc 
NSTRING 

Q 

Date 

Fname 

RSTRING 

F 

Linel:  PT1 ; 

Line2:  PT2; 

Line3:  PT3; 

Line4:  PT4; 

Corr_f  lag 

Corr Incr_Vol  , 

Non_C_Incr_Vol, 

Re  l_humi  d  ,  Pb ,  Roam_t  emp 

Device_pointer 

Msi_devices 


INTEGER; 


REAL; 
STRING  [4 
STRING[5] 
STRING!  25 
STRING!  16 
STRING! 25 
TEXT; 


BOOLEAN; 


:       REAL; 
INTEGER; 
ARRAY[1..3]  OF  STRING  [4]; 


DECLARE  EXTERNAL  68000  ASSEMBLY  MXULES 


PROCEDURE  B I T_TST; EXTERNAL; 
PROCEDURE  BIT_HI  ;EXTERNAL; 


{WAITS  UNTIL  ECC  BIT  GOES  HIGH,  THEN  LOW} 
{WAITS  UNTIL  EOC  BIT  IS  LOW} 


PROCH 

1  **** 

3URE  BEEP; 

************************** 

********** 

**** 

***** 

,*,«,,»*,,,» 

««***«» 

********** 

**** 

* 

Procedure 

Name  : 

BEEP 

* 
« 

File  Name 

CAP2 

* 
* 

REVISION 

DATE 

**************************** 


PROGRANMER 


i 
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1-0  22-Sept-84     Michael  Masters. 

Procedure  description: 

This  procedure  sounds  an  audible  beep  to  the  operator. 


Calling  sequence: 
BEEP; 


Parameters  supplied  by  the  calling  routine. 
None 

Parameters  returned  to  the  calling  routine. 
None 


•  MltltHtHttlttMMmittmMJttt.ttlXUtMMtttMMMOMttKHttHt.,. 

BEGIN  ' 

PRCMPT   (CHR(7)h 

END; 


PROCEDURE  Line_feed(I         :  INTEGER); 

{*********,***,*«,  t>it>it>»ttuiiii(«t>t)»itmiii»t ttis<i>t>«<»<» 


• 


Procedure  Name:  Line  feed 

File  Name:  CAP2 

REVISION  DATE  PROGRAMvER 

!-°  22-Sept-84     Michael  Masters. 

Procedure  discription: 

This  procedure  sends  a  specified  number  of  line  feeds  to  the 
terminal . 


Calling  sequence: 

Line_feed(I ) ; 

Parameters  supplied  by  the  calling  routine. 

I  -  is  an  integer  value  parameter  corresponding  to  the 
number  of  line  feeds  to  be  sent  to  the  terminal. 

Parameters  returned  to  the  calling  routine. 
None 


************** ************* 


*************************************** 


VAR     J  INTEGER; 

BEGIN 

FOR  J  :=  1  TO  I  DO         {Send  the  specified  number  of  line  feeds} 
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BEGIN 

PRCMPT  (CHR(IO));        {Send   the    line   feed} 
END; 
END; 
(  ■  =====  ====— =====„==„=^=^m=g=  1 


I 

***  DECLARE  PROCEDURE  FOR  PAUSING  PROGRAM  OPERATION 

PROCEDURE  KOLD_UP; 
BEGIN 

PROMPT  (  'PRESS  ENTER  TO  CONTINUE.  '  )  ;     {DISPLAY  PROMPT  ON  CRT} 

BEEP; 

READLN;     {WAIT  UNTIL  'ENTER'  IS  PRESSED) 
END;    {KOUDUP  END} 


PROCEDURE  Ask_Y_or_N(VAR  Q:STRING); 

{«titi»s»»tt><«itt«»>a tit ti><i(»»>»i t»«itt»at>it< 

***************************************************************** 
*  * 

Procedure  Name:   Ask  yes  or  no  question.  * 

* 
File  Name:       CAP2  * 

* 

REVISION              DATE           PROGRAMMER  * 
* 

1-0  22-Sept-84     Michael  Masters.  * 

* 

* 

Procedure  discription:  * 

This  procedure  prompts  the  operator  for  a  yes  or  no  response.   * 

* 

* 

Calling  sequence:  * 

Ask_Y_or_N(Q) ;  * 

* 

Parameters  supplied  by  the  calling  routine.  » 

None  * 

* 

Parameters  returned  to  the  calling  routine.  * 

Q  -  a  string  reference  parameter.  Returns  the  value  'Y'  for  * 

a  yes  response  and  the  value  'N'  for  a  no  response.      * 


*******************************„  *,  *****  *„  »„»  **»„*„  *****  ***************  „»„,,;,,, 

} 

BEGIN 
REPEAT 
BEEP; 

READLN(Q); 

IF  Q='y'  THEN  Q  :=  'Y' ; 
IF  Q='n'  THEN  Q  :=  'N' ; 
IF  NOT((Q='Y')  OR  (Q='N'))  THEN 

BEGIN 

WRITELNC' Invalid   response.     Enter  Y  (yes)   or  N  (no).'): 

END 
UNTIL  (Q='Y')  OR   (Q-'N')    ; 
END;    {Ask_Y_or_N} 
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***  DECLARE  PROCEDURE  TO  SET  EMM  CLOCK 

PROCEDURE  CLKSETCVAR  S:  INTEGER);  {PASS  SAMPLING  FREQUENCY  (S)} 

VAR  X.Fm.Fl:  INTEGER; 

BEGIN 
{ 

***  have  user  enter  the  sampling  frequency 
prompt  Center  sampling  frequency:     '); 

BEEP; 

READLN(S); 

{ 

***  DETERMINE   16-BIT  COUNTER  VALUE  FOR  OKI    IN  8253  TIMER  CHIP 

X:=1000000  DIV  2  DIV  S; 
IF  X>=256  THEN 

BEGIN 

Fm:=X  DIV  256; 
Fl:=X-256*Fm; 
END 
ELSE 

BEGIN 
Rn:=0; 
F1:=X; 
END; 
{ 
***  SET  COUNTER  0  IN  8253  TIMER  TO  M3DE  3 

IOCONTROL(12,3,15678);  {11110100111110} 
IOCONTROL(12,3,15422);  {11110000111110} 
IOOONTROL(12,3,15670);  {11110100110110} 

***   SET  COUNTER   1    IN  8253  TIMER  TO  MXSE  2 


{11110101111100} 
{11110001111100} 
{11110101110100} 


IOCONTROLC 12 , 3 , 15740) ; 
IOODNTROLC  12  , 3 ,  15484)  ; 
IOCONTROL(12,3,15732); 

*»*  LOAD  LSB  OF  COUNTER  0 

} 

IOCONTROL(12,3,9474);   {10010100000010} 

IOCONTROLt 12, 3 ,921 8);   {10010000000010} 

IOCONTROLC  12 , 3 , 9474 ) ;   { 10010100000010} 

***  LOAD  MSB  OF  COUNTER  0 

IOCONTROL(12,3,9472);  {10010100000000} 
IOOONTROL(12,3,9216);  {10010000000000} 
IOCONTROLC 12, 3, 9472);   {10010100000000} 

***  LOAD  LSB  OF  COUNTER  1 

IOCONTROLC 12, 3, 13568+F1);  {11010100000000} 
IOCONTROLC 12 , 3 , 13312+F1 ) ;  {11010000000000} 
IOCONTROLC 12,3, 13568+F1 ) ;  { 1 1010100000000} 

***  LOAD  MSB  OF  COUNTER  1 
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} 

IOC0NTROL(  12 , 3 , 13568+Hn) ;  { 1 1010100000000} 
IOCONTROLC  12,3 , 13312+Fm) ;  { 1 1010000000000} 
IOODNTROL(12,3,13568+Fm);  {11010100000000} 
END;  {CLKSET  END} 

*»*  DECLARE  PROCEDURE  FOR  COLLECTING  FOUR  CHANNELS  OF  DAM  DATA 

PROCEDURE  DATA_COLLECT(VAR  Sam,  S : INTEGER ; 

VAR  LINE1:PT1;VAR  LINE2:PT2; 
VAR  LINE3:PT3;VAR  LINE4:PT4); 
VAR  I, R6,Del,R4:  INTEGER; 

{BIT  PATTERNS  NECESSARY  TO  SET  THE  CHANNEL  MJLTIPLEXER} 
CONST  Chna=15359;Chnb=13311; 
Chnc=11263;Chnd=921S; 

Mask=4095;     {MASKS  OFF  ALL  BUT  12  DATA  BITS  IN  STATUS  WRD} 

***  MAIN  LOOP  FOR  FOUR  CHANNEL  DATA  ACQUISITION 

BEGIN  {mTA_COLLECT} 

WUTELN(  'NOV  COLLECTING  DATA.  . .  please  wait  patiently.'); 
WRITELNt 'Collecting  ',Sam:5,'  samples. 

This  will  take  '  ,Sam  DIV  S:4, '  Sec'); 
FOR  I:-l  TO  Sam  CO 
BEGIN 
{ 
***  PUT  S/H  AMPS  IN  TRACKING  MODE  AND  SELECT  CHANNEL  A 

R6:=BINAND(  15360, Chna); 

R6:=BINCMP(R6); 

IOCONTROL(12,3,R6); 

{ 

***  GIVE  S/H  AMPS  TIME  TO  TRACK  INPUT  SIGNALS 

Del:=15; 
WIILE  Del>0  DO 

BEGIN 

Del:-Del-1; 

END; 
{ 
***  SELECT  CHANNEL  A  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

R6  :  =BINAND(  71 68  ,Chna  )  ; 

R6:=BINCMP(R6); 

IOCONTROL(12,3,R6); 

{ 

***  SELECT  CHANNEL  A  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  LOW 

R6:=BINAND(7680,Chna);   {SEND  CONVERT.  .. } 

R6:-BINCMP(R6);         {...PULSE} 

IOCONTROL(12,3,R6); 

{ 

***  SELECT  CHANNEL  A  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

R6:=BINAND(7168,Chna);   (RETURN  TO.  ..  } 
R6:=BINGMP(R6);        {...NORMAL} 
IOCONTROL(12,3,R6); 

«»«  -v^ait  FOR  EOC  LINE  TO  GO  LOV 

BIT_HI ; 

{ 

***  READ  GPIO  STATUS  REGISTER  AND  KEEP  ONLY  12  BITS 
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} 

R4:=I0STATUS(12.3); 
R4:=R4  DIV  4; 
R4:=BINAND(MASK,R4) ; 
Liner[I]:=R4; 

**»   SELECT  CHANNEL  B  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

R6:=BINAND(7168,Chnb); 

R6:=BINCMP(R6); 

IOCDNTROL(12,3,R6); 

{ 

**»  SELECT  CHANNEL  B  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  LOW 

R6:=BINAND(7680,Chnb); 

R6:=BINCMP(R6); 

IOCONTROL(12,3,R6); 

{ 

***  SELECT  CHANNEL  B  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

R6:=BINAND(7168,Chnb); 

R6:-BINCMP(R6); 

IOCONTROL(12,3,R6); 

{ 

***  WAIT  FOR  EOC  SIGNAL  TO  GO  LOW 

BITJTI  ; 
{ 

***  READ  GPIO  STATUS  REGISTER  AND  KEEP  ONLY  12  BITS 

R4:=I0STATUS(12,3); 

R4:=R4  DIV  4; 

R4:=BINAND(Mask,R4); 

Line2~[I]:=R4; 

{ 

***   SELECT  CHANNEL  C  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

R6:=BINAND(7168,Chnc); 

R6:=BINCMP(R6); 

IOOONTROL(12,3,R6); 

{ 

***   SELECT  CHANNEL  C  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  LOW 

R6  :-BINAND(  7680 ,Chnc  )  ; 

R6:=BINCM>(R6); 

IOCONTROL(12,3,R6); 

{ 

*"  SELECT  CHANNEL  C  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

R6:=BINAND(7168, Chnc); 

R6:=BINCMP(R6); 

IOaONTROL(12,3,R6); 

{ 

***  WAIT  FOR  EOC  SIGNAL  TO  GO  LCW 

BITJII ; 

{ 

***  READ  GPIO  STATUS  REGISTER  AND  KEEP  ONLY  12  BITS 

R4:=IOSTATUS(12,3); 
R4:=R4  DIV  4; 

R4:=BINAND(Mask,R4); 
Line3"[I]:-R4; 

***   SELECT  CHANNEL  D  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 
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} 

R6:=BINAND(7168,Chnd); 
R6:=BINCMP(R6); 
IOCONTROL(l2,3,R6); 

***   SELECT  CHANNEL  D  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  LOW 

R6:=BINAND(7680,Chnd) ; 

R6:=BINCMP(R6); 

IOCONTROL(12,3,R6); 

***   SELECT  CHANNEL  D  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

R6:=BINAND(7168,Chnd); 

R6:=BINCMP(R6); 

IOCDNTROL(12,3,R6); 

«**  "WIT  FOR  EOC  SIGNAL  TO  GO  LCW 

BIT_HI ; 

{ 

**»  READ  GPIO  STATUS  REGISTER  AND  KEEP  ONLY  12  BITS 

R4:=IOSTATUS(12,3); 

R4:=R4  DIV  4; 

R4 :  =BINAND(Mask  ,R4)  ; 

Line4"[I]:=R4; 

{ 

***  WAIT  FOR  EOC  SIGNAL  TO  GO  HIGH,  THEN  LCW 

BIT_JST; 
{ 
***  LOOP  BACK  UNTIL  ALL  POINTS  ARE  COLLECTED 

END; 
END;  {DATAJDLLECT} 

***  DECLARE  PRCCECURE  FOR  CALIBRATING  THE  PERKIN-ELMER  GAS  MASS  SPECTROMETER 

PROCEDURE  GASCAL(VAR  01, Co2_cal,02_cal  :  REAL; 

VAR  Co2_dc_offset,02_dc_offset  :  INTEGER; 

Sam.S  :  INTEGER); 
VAR  I  ,Avg_CD2_room_a  i  r  ,Avg_02_room_a i  r , 

Avg_C02_cal_gas,Avg_02_cal_gas  :  INTEGER- 

Cl.Ch.Oh  :  real; 

"•BEGIN  GMS  CALIBRATION 

BEGIN  {GASCAL} 

***  INSTRUCT  USER  TO  CONNECT  GMS  PROBE  FOR  21%  02  AND  0%  C02 

WUTELNC  'CONNECT  THE  MASS  SPECTROMETER  PROBE  TO  ROOM  AIR.  '  )  • 
Line__feed(l); 

**«  OBTAIN  ACTUAL  02  AND  CD2  CONCENTRATIONS  FROM  GMS  FRONT  PANEL 

PROMPT  (  'ENTER  ACTUAL  PERCENT  C02  COCENTRATION .    '  )  • 

BEEP; 

READLNCCl ) ; 

CL  :=  CL/100.0; 

PRCMPT  ( 'ENTER  ACTUAL  PERCENT  02  CONCENTRATION.     ' )  • 

BEEP; 

READLN(Oh)  ; 

Oh  :=  Oh/100.0; 
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{ 

***   FOLLCWIMj  A  CARRIAGE  RETURN,   TAKE  500  DATA  POINTS  ON  CD2  AND  02 

***  CHANNELS 

} 

HDLD_UP; 

DATA_COLLECT(Sam,S,LINEl ,LINE2,LINE3,LINE4) ; 

***  OCMPUTE  AVERAGE  BINARY  VALUES  FOR  02  AND  CD2  CHANNELS 

Avg_C02_roam_air:=LINEl~[l]; 
Avg_02_room_a i r  :=LINE2~ f  1  ] ; 
FOR  I:-2  TO  Sam  DO 

BEGIN 

Avg_C02_room_a  i  r :  =Avg_C02_room_a  i  r+LINEl *  [  I  ] ; 
Avg_02_room_a  i  r  :=Avg_02_roam_a  i  r+LINE2"  [  I  ] ; 

END; 
Avg_C02_room_air:=Avg_C02_roam_air  DIV  Sam; 
Co2_dc_of  f  se  t  :=Avg_C02_rooni_a  i  r ; 
Avg_02_roam_air:=Avg__02_roam_air  DIV  Sam; 

***  DISPLAY  AVERAGES  ON  HP9826  CRT 

Line_feed(l ) ; 

WRITELN  ('Average  binary  values  read  for  room  air'); 

WITELNO    002:  '  ,Avg_C02_roam_air) ; 

URITELNO     02:  '  >Avg_02_room_air); 

***  INSTRUCT  THE  USER  TO  CONNECT  CMS  PROBE  TO  THE  CALIBRATIO  GAS. 

\WITELN(  'CONNECT  THE  CMS  PROBE  TO  THE  CALIBRATION  GAS .  '  )  ; 

Line_f  eed(l) ; 

{ 

***  OBTAIN  ACTUAL  02  AND  CD2  CONCENTRATIONS  FRCM  CMS  FRONT  PANEL 

PROMPT  (  'ENTER  ACTUAL  PERCENT  002  CONCENTRATION.   ' ) ; 

BEEP; 

READLN(Ch); 

Ch  :=  Ch  /  100.0; 

PRCMPT  (  'ENTER  ACTUAL  PERCENT  02  CONCENTRATION.    '  )• 

BEEP; 

READLN(Ol); 

01  :=  01  /100.0; 

{ 

***  TAKE  500  DATA  POINTS  ON  C02  AND  02  CHANNELS 

HOLDJJP; 

DATA_COLLECT(Sam,S,LINEl  ,LINE2,LINE3,LINE4)  ; 

»**  COMPUTE  AVERAGE  BINARY  VALUES  FOR  02  AND  C02  CHANNELS 

Avg_C02_ca  l_gas  :=LINE1 "  [  1  ] ; 
Avg_02_ca l_gas  :-LINE2" [  1  ] ; 
FOR    I:-2  TO  Sam  EO 

BEGIN 

Avg_002_ca  l_gas  :  =Avg_C02_ca l_gas+LINEl *  [  I  ] ; 
Avg_02_c  a  I_^  a  s  :  =Avg_02_c  a  l_g  a  s  +L I NE2  *  [  I  ]  ; 

END; 
Avg_C02_cal_gas:=Avg_C02_cal_gas  DIV  Sam; 
Avg_02_cal_gas:=  Avg_02_cal_gas  DIV  Sam; 
02_dc_off  set  :=Avg_02_cal_gas  ; 

***  DISPLAY  AVERAGES  ON  HP9826  CRT 
Line_feed(l); 
} 
■WRITELN  ("Average  binary  values  read  for  room  air'); 


A6.31 

WUTELNC         002:    '  ,Avg_C02_cal_eas); 
WUTELNO  02:    '  ,Avg_02_calJgts); 

***  OOMPUTE  002  AND  02  CALIBRATION  FACTORS  FROM  THESE  AVERAGES 
Co2_cal    := 

RClJND^Ch-cl)/(Avg_CD2_cal_gas-Avg_CD2_jooni_air)*10000000)/10000000- 
U2__cal    :  = 

ROUND((Oh-Ol)/(Avg_D2_room_air-Avg_i)2_cal_gas)*  10000000)/ 10000000; 

***  DISPLAY  CD2  AND  02  CALIBRATION  FACTORS  ON  9826  CRT 

WUTELNC  '002  DC  OFFSET  ='  ,Co2_dc_of  f  set )  ■ 
WRITELNC '02  DC  OFFSET  -■ ,02_dc_offset ) ; 
WUTELN( '002  CALIBRATION  FACTOR  =  ',Co2_cal)- 
WRITELNC02  CALIBRATION  FACTOR  =',02  cal); 
END;  {GASCAL} 


PROCEDURE  FLCWCALCVAR  NorOUJlow_cal  ,Non_C_E_f  low_cal , 
Corr_I_f  low_cal  ,Corr_F_f  low_cal 
VAR  Bin_zero_flow 
Sam,  S 
Corr_f  lag 

,  Rel_humid,Pb,Room_temp,Ta,Tb,Tc 

j********************************^^.,,.,,^  *  **  *************** 


REAL; 

INTEGER 

INTEGER 

BOOLEAN 

REAL); 


Procedure  Name:  FLCMCAL 
File  Name:       CAP2 


REVISION 

1.0 

2.0 


DATE 


June  28,  1984 
Sept.  6,  1984 


PRGGRAMvER 

Loren  Riblett  Jr. 
Michael  Masters 


Procedure  discription: 

FLCttCAL  calculates  the  calibration  factors  for  the  flow 
signal.  The  binary  value  of  zero  flow  is  first  determined 
and  then  two  sets  of  flow  calibrat ion  factors  are  det- 
ermined. The  first  two  flow  cals  do  not  use  any  temper- 
ature or  gas  viscosity  corrections  in  their  determination. 
The  second  set  uses  incremental  point  by  point  temperature 
and  viscosity  correction  in  their  determination. 


Parameters  supplied  by  the  calling  routine. 

(all  parameters  passed  to  FLCMCAL  are  value  parameters.) 


Sam 
S 


The  number  of  samples  which  is  collected. 
Sampling  frequency. 


Corr__flag  -   Indicates  if  temperature  and  viscosity  corr- 
corrections  are  requested. 

TRUE   -  correct  for  temp,  and  vise. 
FALSE  -  no  corrections. 

Rel_humid  -  The  relative  humidty  of  the  ambient  air. 

Pb       -  The  ambient  barometric  pressure. 
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Parameters  returned  to  the  calling  routine.  * 

(all  parameters  returned  are  reference  parameters.)       * 

Non__C_I_f  low_cal  -  the  inspiratory  f  low  cal  ibration  factor  * 
which  does  not  use  temp,  and  vise,  corrections.   * 

Non_C_E_frow_cal  -  the  expiratory  flow  cal ibration  factor  * 
which  does  not  use  temp,  and  vise,  corrections.   * 

Corr_I_f low_cal  -  The  inspiratory  flow  calibration  factor  * 
which  uses  the  temp,  and  vise,  corrections.      * 

* 

Corr_E_f  low_cal  -  The  expiratory  flow  cal ibration  factor  * 

which  uses  the  temp,  and  vise,  corrections.      * 

* 

Bin_zero_f low  -  The  binary  value  corresponding  to  zero   * 

flow  input .  * 

* 
Routines  called:  * 

* 

Calc_incr_vol  -  calculates  the  incremental  volume  of  the    * 

sample.  * 

* 

Valid_pointer  -  Sees  if  the  pointer  to  the  vapor  pressure   * 

array  is  valid.  * 


CONST   Non_C_Pump_Vo 1  =  0.647;       {The  volume  of  the  pump  under  ambient 

conditions.  } 

Corr_Pump_VoI  .  0.560;       {The  volume  of  the  pump  under  STPD 

conditions.  } 

Min_Temp  =  20;  {degrees  C.  The  minumum  temperature  for  which 

the  saturated  vapor  pressure  may  be 
found  in  the  vapor  pressure  array.} 
Max_lemp  =  45;  {degrees  C.  The  maximum  temperature  for  which 

the  saturated  vapor  pressure  may  be 
_,  found  in  the  vapor  pressure  array.} 

First_e)ement  -  0;  {  The  first  element  in  the  vapor 

pressure  file.} 
Last_element  =  10  *  (Max_Temp  -  Min_Temp); 

{  The  last  element  in  the  vapor 

pressure  file.} 
Vap_File_name  =  ,#14:VAP_PASCAL' ;  {The  vapor  pressure  file  location 
,r.„  ,  ^  and  name.} 

VAR  I  ,Tot_Jzero,No_breaths,A, 

Array_pointer ,Bin_delta_P  ;       INTEGER; 

St ill_calculat ing.St il  l_inspire , 

StilLexpire  :       BOOLEAN; 

T ,  Non_C_To  t_vo  l_i  n  s  p , 

Non_C_To  t_vo  l_expr , 

Co  r  r_To  t_vo  l_i  n  s  p , 

Co r  r_To t_vo  l_e xp r  , 

Non_C_Ai  r  i  ,Non_CLAi  re  , 

Corr^Airi  ,Corr_Aire, 

Non_C_Avg_Vo  l_i  n  s  p , 

Non_C_Avg_yo  l_expr , 

Co  r  r_Avg_Vo  1 i  n  s  p , 

Corr_j\vg_yol_expr,Fh2o, 

Temperature  :       REAL' 

^aP  _,       :       ARRAY[First_element.  .Last_element  ]  OF  REAL; 

VaP-Flle  :       FILE  OF  REAL; 
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PROCEDURE  Valid_pointer  (  VAR  Array_pointer    :       INTEGER); 

J*******************************,  *****************  mtttsttt  **************** 
******************************* ********************************************* 

*  * 

*  Procedure  Name:     Valid_pointer  * 

*  . 

*  File  Name:       CAP2  * 

*  . 

*  REVISION  DATE  PROGRAMMER  * 


1.0  ■    22-Sept-84     Michael  Masters  * 

Program  discript ion:  * 

This  procedure  determines  if  the  vapor  pressure  array      * 
pointer  is  within  the  proper  range.  * 

* 

* 

Calling  sequence:  » 

« 

Val id_pointer(Array_pointer) ;  * 

* 

Parameters  passed  from  and  returned  to  the  calling  routine.       * 

* 

Array_pointer  -  The  pointer  into  the  vapor  pressure  * 

array.   If  it  is  not  within  the  valid  range  it  is  made  * 

to  point  at  either  the  first  element  or  the  last  * 

element.  (  A  reference  parameter.)  * 


************************** ****** 


************* 


BEGIN 

IF  Array_pointer  <  First_element  THEN       {  The  pointer  is  invalid.} 

BEGIN 

Array_pointer  :=  First_element ; 
END 

ELSE  {  The  pointer  may  be  valid.) 

BEGIN 

IF  Array_pointer  >  Last_element  THEN 
BEGIN 

{  The  pointer  is  invalid.} 
Array_pointer  :=  last_element ; 
END 

ELSE 

BEGIN 

The  vapor  pressure  pointer  is  valid  so  leave  it  alone.} 

END; 
END; 
END;  {Valid_pointer} 


PROCEDURE  Calc_Incr_vol(Bin_delta_P 

Fh2o, Temperature ,T 
VAR  Corr_Jncr_vol  ,Non_C_Incr_vol 


INTEGER; 

REAL; 

REAL); 


{■***************«***»****»»»»*»**  ** ,,  ;**  *  *  *  ,»**»***.,,,»,»*******,***,,,*,*,* 
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*  * 

*  Program  Name:   Calc_Incr_vol  * 

*  * 

*  File  Name:      CAP2  « 

«  * 

*  REVISION  DATE  PROGRAMMER  * 

*  * 

*  1.0  22-Sept-84     Michael  Masters .  * 

*  * 

*  * 

*  Program  inscription:  .  * 

*  * 

*  This  proceedure  calculates  the  incremental  volume  of  the  sample  * 

*  from  the  measured  binary  differential  pressure.  The  non  corrected  * 
flow  is  assumed  to  be  directly  propotional  to  the  pressure  differ-  * 

*  ential  so  that  the  binary  incremental  volume  is  equal  to  the  * 

*  sampled  value  multiplied  by  the  sampling  period.  * 

*  * 

*  The  corrected  volume  is  calculated  by  dividing  the  differential  * 
pressure  by  the  relative  viscosity  of  the  gas  to  obtain  the  binary  * 

*  flow.  The  incremental  volume  is  then  calculated  by  mul t iplying  by  * 
the  sampling  period.  This  volume  is  then  converted  to  STPD  cond-  * 

*  it  ions.  * 

*  * 

*  If  temperature  and  viscosity  corrections  are  not  desired  then  the  * 

*  corrected  volume  is  set  equal  to  the  non  corrected  volume.  * 

*  « 

*  Calling  sequence:  * 

*  Calc_Jncr_vol(  Bin_delta_P,Pb,Fh2o, Temperature  ,T  * 

*  Corr_Incr_vol  ,Non_C_Incr_yol  );  * 

*  * 

*  Parameters  supplied  by  the  calling  routine.  * 

(all  parameters  are  value  parameters)  * 

*  * 

Bin_delta_P    -  The  sampled  pressure  differential  from  LINE3  * 

*  * 

Fh2o  -  The  fractional  content  of  water  vapor.  * 

*  * 

Temperature    -  The  temperature  of  the  flow  gas  obtained  * 

from  the  temperature  transducer.  * 

*  * 

*  T  -  The  sampling  period.  * 

*  * 

*  * 

*  Parameters  returned  to  the  calling  routine.  * 

(all  parameters  are  reference  parameters)  * 

*  * 

Corr_Jncr_vol   -  The  calculated  incremental  volume  under  STPD  * 

conditions  which  was  obtained  using  vis-  * 

cosity  corrections  on  the  measured  pressure  * 

differential.   If  corrections  are  not  * 

requested  then  it  is  equal  to  the  non  corr-  * 

*  ected  volume .  * 

*  * 

Non_C_Incr_vol   -  The  non  corrected  incremental  volume.  * 

*  « 

*  Routines  called:  * 

*  The  function  Rel_viscos.  * 


«" •m«««i«t«t«nt ttt <(•■»>! >i tm»t<t 

VAR  ReL_viscosity,ITPnS_to_STPD  :  REAL; 
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FUNCTION  Rel_viscos  (  Temperature  ,Fh2o 


*************************** 


REAL)    :   REAL; 

***************************** 
******************************************** 


Function  Name:  Rel_yiscos 

File  Name:  CAP2.TEXT 

REVISION  DATE                            PROGRAMMER 

1-0  Sept  6,  1984    Michael  Masters 

Function  discript ion: 

Rel_viscos  returns  the  real  value  equal  to  the  relative  vis- 
cosity of  the  gas  . 

Parameters  supplied  by  the  calling  routine. 

(all  parameters  are  value  parameters.) 

Temperature  -  The  temperature  in  degrees  Centigrade. 

Fh2o       -  The  fraction  of  water  vapor  in  the  room  air. 


IU»llMllt>l>llltttt|> >t| t<t tl»ttMltttll»ttl»tlt»t) 


VAR     Vis_H20,Vis_02,Vis_D02, 

Vi  s_N2  ,Vi  s_STPD,  F02 ,  FC02  ,  FN2 
BEGIN  {FUNCTION  Rel_viscos} 
Vis_STPD  :=  170.17502; 


REAL; 


F02 
FC02 

FN2 


Calculate  the  fractional  concentrations  of  oxygen, 
carbon  dioxide,  and  nitrogen  in  the  wet  room  air.) 

=  0.2109  *  (  1.0  -  FH20); 
=  0.0004  *  (  1.0  -  FH20); 
=  (1.0  -  F02  -  F002  -  FH20); 


Calculate  the  individual  viscosities. 

Vis_N2  :=  165.4  +  0.451»Temperature ; 

Vis_02  :=  188.0  +  0.606*Temperature ; 

Vis_C02  :=  187.1  +  0.612«Temperature ; 

Vis_H20  :=  117.6  +  0.506*Temperature ; 

Calculate  the  relative  gas  viscosity. 

Rel_viscos  :=  (FO2*Vis_02  +  FC02*Vis__C02 

+  FN2*Vis_N2  +  FH20*Vis_H20)/Vis_STPD; 


END;    {FUNCTION  Rel_viscos) 


BEGIN  {Calc_Incr__Vol} 
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Nbn_C_Incr_Vol  :-  Bin_delta_P  *  T; 
IF  Corr_flag    THEN 

BEGIN 

Rel_viscosity  :=  Rel_viscos(  Temperature ,Fh2o  ); 

{Calculate  the  ITPnS  to  STPD  conversion  factor.} 
ITPnS_to_STPD  :  = 

(1.0  -  Fh2o)*(  273.15/(Temperature  +  273.15)  )«(Pb/760); 

Corr_Jncr_yol  :=  Bin_delta_P  /  Rel_Viscosi ty  *  T; 
Corr_Incr_Vol  :=  Corr_lncr_Vol  «  ITPnS_to_STPD; 
END 
ELSE 

BEGIN 

Corr_lncr_yol  :  =  Non_C_Incr_yol ; 

END; 

END;      {Calc_Jncr_yol} 


{«»«   BBG[N  FLCW  CALIBRATION} 
BEGIN   {FIXMCAL} 

IF  (Corr_flag)  THEN  {Read   the  water  vapor   pressure   table.} 

BEGIN 

RESET  (Vap_Fi  1  e  ,Vap_Fi  1  e_name ) ; 

FOR  Array_pointer    :=  First__element  TO  Last_Element  DO 

BEGIN 

READ  (Vap_File,  Vap[Array_pointer] ) ; 

END; 
END; 

{Determine  the  binary  value  corresponding  to  zero  flow.} 

Line_feed(2); 

WRITELN  ('You  can  determine  the  binary  zero  flow  or  use  a')- 
WRITELN  ('default  value  of  2038.'); 

PROMPT  ('Do  you  wish  to  determine  binary  zero  flow''  (Y/N) ' )  • 
Ask_Y_or_N(Q) ; 
IF  Q='Y'  THEN 
BEGIN 

{*»*  INSTRUCT  USER  TO  APPLY  ZERO  FLOW  TO  THE  PNFIMJTACHOMETER} 
WRITELNt  'CONNECT  ZERO  FLOV  TO  PNHJVOTACHOMETER .  '  )  ; 

{***  FOLLOWING  A  CARRIAGE  RETURN,  GO  COLLECT  500  FLOW  DATA  POINTS} 

HOLQJJP; 

DATA_COLLECT(  Sam,  S ,  LINE1 , LINE2  .LINE3 , LINE4 )  ; 

{***   AVERAGE  THE  500  DATA  POINTS  FOR  ZERO  FLOWVALUE} 
Tot_zero:=LINE3~[l]; 
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FOR  I:=2  TO  Sam  CO 
BBGIN 

Tot_zero:=Tot_zero+LINE3~[I ] ; 
END; 

Bin_zero_f  low:-Tot_zero  DIV  Sam; 


{***  DISPLAY  BINARY  ZERO  FLOW  VALUE  ON  9826  CRT} 

VSITELN(  'Average  binary  value  for  zero  f  low  =' ,Bin_zero_f  low) ; 
END 


ELSE 


BEGIN 

Bin_zero_flow  :=  2038; 

END; 


{Calibrate  the  flow  signal  by  first  integrating  the  measured 
differential  pressure  signal  over  each  inspiratory  and  expir- 
atory cycle.  The  average  inspiratory  and  expiratory  binary 
volumes  are  then  set  equal  to  the  known  pump  volume  with  the 
calibration  factor.} 

{***  INSTRUCT  USER  TO  CONNECT  PNEUMOTACHOGRAPH  TO  HARVARD  PUMP} 
Line_feed(2); 
IF  Corr__f  lag  THEN 

BEGIN 

WRITELNC  '  INSERT  THE  THERMOCOUPLE   INTO  THE  PTM  HEAD' ) ; 

END; 

TOITELN(  'CONNECT  PUMP  FLOW  TO  THE  PNEUvDrACHOGRAPH .  ' ) ; 
Line_feed(l ) ; 

{***   FOLLOWING  A  CARRIAGE  RETURN,   GO  COLLECT  4000  DATA  POINTS 
OF  PUMP  FLOW} 

HOLDJJP; 

Sam:  =4000; 

DATA_COLLECT(  Sam,  S , LINE1 , LINE2  , LINE3 , LINE4 )  ; 

{  INSTRUCT  USER  DATA  COLLECTION  IS  COMPLETE  AND  BEGIN  INTEGRATION 
OF  FLOW  SIGNAL  TO  DETERMINE  INSPIRATORY  AND  EXPIRATORY  FLOW 
CALIBRATION} 

BEEP; 

WRITFiNC 'DATA  COLLECTION  COMPLETE...    turn  off    the    pump.'); 

{    INITIALIZE  NECESSARY  VARIABLES  FOR  FLOW  SIGNAL   INTEGRATION} 
No_breaths  :=0; 
T:=l/S; 
A:=l; 

Non__C_Tot_yol_insp  :=  o 
Non_CLTot_Vol_expr  :=  0 
Corr_Jot_yol_insp  :=  0 
Corr_Tot_Vol_expr      :=  0 
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{  PRINT  HEADER  ON  CRT  FOR  BREATH-BY-BREATH  INTEGRATION  DISPLAY} 

Corrected  Values  '); 


WUTELNO    Non  Corrected  Values 
WUTELNC 

WUTELN( '          BINARY    BINARY 
WUTELNC  'BREATH     AIR       AIR 
W?ITELN(  'NUMBER   INSPIRED   EXPIRED 
WRITELNO 


); 

BINARY     BINARY'); 

AIR        AIR'); 

INSPIRED    EXPIRED'); 

'); 


Still_calculating  :=  TRUE; 

REPEAT    {  MAKE  SURE  FLOW  INDEX  IS  AT  BEGINNING  OF  FIRST  INSPIRATION} 
A : =A+1 ; 

IF  A  >  Sam-1  THEN 
BEGIN 

Still_calculating  :=  FALSE; 
END; 
UNTIL  (LINE3~[A-1]  >  Bin_zero_f low)  AND  (LINE3"[A]  <  Bin_zero_f  low) 
OR  NOT  (Still_Calculating); 

IF  Corr_J:lag  THEN 
BEGIN 

Array_pointer  :=  ROUND  ( (Roam_temp  -  Min_Temp)  *  10); 
Val  id_Pointer  (Array_pointer) ; 
Fh2o  :=  Rel_humid  *  Vap[Array_pointer]  /  Pb; 
END; 

WIILE  Still_calculating      DO 
BEGIN 

IF  A>  Sam- 10  THEN 
BEGIN 

Still_calculating  :=  FALSE; 
END; 

{Calculate  the  binary  inspiratory  volume  of  this  stroke  (breath).} 

IF  Still_calculating  THEN 
BEGIN 

{Compute  half  of  the  first  trapezoidal  area.} 
Temperature  :=  Ta*Line4-[A]*Line4"[A]  +  Tb*Line4~[A]  +  Tc- 
Bin_delta_P  :=  Line3"[A]-Bin_zero_Jf low; 
Calc_Incr_yol(Bin_delta_P,Fh2o, Temperature  ,T, 

Corr_Incr_vol  ,Non_C_Incr_vol); 
Corr_Airi  :=  0.5  *  Corr_Incr_Vol ; 
Non_CAiri  :=  0.5  *  Non_C__Incr_vol ; 
END; 

{  SUM  UP  ENTIRE  INSPIRATION  TRAPEZOIDS} 
St  ill_inspire  :=  TRUE; 

WIILE  Still_inspire  AND  St  i  1  l_calculat  ing    EO 
BEGIN  6 

A:=A+1; 

IF  A>Sam  THEN     {data  has  been  exhausted,  quit  calculatine} 
BEGIN  B 

Still_calculat ing  :-  FALSE; 
END 


ELSE    {Data  is  still  available  for  calculation.} 

BEGIN 

Bin_delta_P  :=  Line3~[A]-Bin_zero_f low; 


■ 
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IF  (Bin_deltaJP  >=  o)  THEN     {The  ispiration  is  over} 
BEGIN 

Still_inspire  :=  FALSE 
END 

ELSE     {The  puny  is  still  inspiring,  compute 

the  incremental  volume.} 
BEGIN 

Temperature  :-  Ta*Line4"[A]*Line4"[A]  +  Tb*Line4"[A]  +Tc; 
Calc_Incr_yol(Bin_delta__P,Fh2o,  Tempera  ture.T, 
Corr__Incr_yol  ,Non_C_Incr_vol); 

{Add  the  incremental  volume  to  the  total} 
Corr_Airi  :=Corr_Airi  +  Corr_Jncr_yol ; 
Non_C_Airi  :=  Non_CLAiri  +  Nbn_C_Incr  Vol: 
END; 
END; 
END;   {While  loop} 

IF  Still_calculating  THEN 

{Place  half  of  the  volume  corresponding  to  inspiratory/expir- 
atory  transition  on  the  inspired  volume  and  half  on  the 
expired  volume  . } 

BEGIN 

Temperature  :=  Ta*Line4" [A] *Line4"[A]  +  Tb*Line4"[A]  +  Tc ; 
Bin_delta_P  :=  Line3"[A]-Bin_jero_/low; 
Calc_Incr_vol (Bin_delta_J>,Fh2o, Temperature  ,T, 
Co  r  r_I  nc  r_vo  1 ,  Non_C_I  nc  r_vo  1 ) ; 

Corr^Airi  :=  Corr_Airi  +  (1/2)  *  Corr_Incr_Vol ; 
Non_CLAiri  :=  Non_C_Airi  +  (1/2)  *  Non__C__I nc r__Vo  1 ; 

Corr_Aire   :=  (1/2)  *  (Corr_Jncr_Vol ) ; 
Non__Q^.ire  :=  (1/2)  *  (Non_C_Incr  Vol) ; 
END; 

{  ****  SLMUP  ENTIRE  EXPIRATION  TRAPEZOIDS  ****} 
Still_expire  :»  TRUE; 

"WHILE  Still_expire  AND  St  i  ll_calculat  ing    DO 
BEGIN  & 

A:=A+1; 

IFA>SamTHEN    {The  data  has  been  exhausted} 
BEGIN 

Still_calculating  :=  FALSE; 
END 

ELSE    {Data  is  still  available  for  calculation.} 

BEGIN 

BinJelta_P    :=  Line3"[A]-Bin_?ero_f low; 

IF  (Bi£_delta_P  <=  0)  THEN       {The   expiration   is   over} 

BEGIN 

Still_expire  :=  FALSE; 

END 

ELSE   {The  pump  is  still  expiring,  compute  the 

incremental  volume.} 
doDIN 

Temperature  :=  Ta*Line4-[A]*Line4~[A]  +  Tb*Line4-[A]  +Tc ; 
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Calc_Incr_yol(Bin_delta_P,Fh2o,Temperature>T, 
Corr_Incr_vol  ,Non_C_Incr_vol ) ; 

{Add  the  incremental  volume  to  the  total} 
Corr__Aire  :=  Corr^Aire  +  Co r r_I nc r_Vo  1 ; 
Non_CLAire  :=  Non__C_Aire  +  Non_C_I  nc  r_Vo  1 ; 
END; 
END; 
END;   {End  While  loop} 

IF  St ill_calculating  THEN 

{Place  half  of  the  volume  corresponding  to  the  expiratory- 

inspiratory  transition  on  the  total  expired  volume.} 
BEGIN 

Temperature  :=  Ta*Line4"[A]*Line4"[A]  +  Tb*Line4-[A]  +  Tc- 
Bin_delta_P  :=  Line3"[A]-Bin_zero_f low; 
Calc_Incr_vol(Bin_delta_P,Fh2o,Temperature,T, 

Co  r  r_I  nc  r_vo  1 ,  Non_C_I  nc  r_vo  1 ) ; 
Corr_Aire  :=  Corr^Aire  +  0.5  *  Corr_lncr_Vol ; 
Non_CjVire  :-  Non_CLAire  +  0.5  *  Non_C_Incr_Vol ; 

{   Make  the  calculations  for  this  pump  stroke. '} 

No_breaths:=No_breaths+l; 

UPDATE  TOTAL  VOLUMES  INSPIRED  AND  EXPIRED  ****} 


Co  r  r_To  t_vo  l_i  n  s  p 
Non_C_To  t_vo l_i  ns  p 

Co  r  r_To  t__v  o  1 e  x  p  r 

Non_C_To  t_vo  l_e xpr 


=  Corr_Tot_vol_insp     +  Corr_ Airi; 
=  Non_C_Tot_vol_insp  +  Non_CLAiri; 
=  Corr_Jot_vol_expr     +  Corr_Aire; 
=  Non_C_Tot_vol_expr  +  Non_C_j\ire; 


{**  DISPLAY  INSPIRED  AND  EXPIRED  VOLUMES  FOR  THIS   STROKE   **} 
WRITELNO    \No_breaths:3,'  '  ,Non_C_Ai  r  i :  6 : 1 , 

\Non_C_Aire:6:l,'  ' ,Corr_Airi :6: 1 , 

'  ,Corr_j\ire  :6:1); 
END; 

END;       {  End  Main  integration  Loop.} 

{***  COMPUTE  AVERAGE  VOLUMES  INSPIRED  AND  EXPIRED  (PER  BREATH  BASIS)1 


Non__CLAvg_Vo  l_i  ns  p 
Non__CLAvg__Vo  l_e  x  p 
Co  r  r_Av  g_Vo  l_i  n  s  p 
Co  r  r_jWg_Vo  l_expr 


Non_C_Tot_vol_insp/No_breaths ; 
-  Non_C_Tot_vol_expr/No_breaths ; 
=  Corr_Tot_yol_insp/No_breaths ; 
=  Corr_Tot_vol_expr/No_breaths ; 


{  Compute  the  inspiratory  and  expiratory  flow  calibration  factors 
for  tne  non  corrected  average  Binary  pump  volume.} 
M0I,-S-i-£}<WL-cal  :=  Non-C_Pump_Vol  /  ( -l*Non_C_Avg_Vol_insp); 
Non_C_E_flow_cal  :=  Non_C_Pump_Vo  1  /  (Non_CLAvg_V6l_expr) ; 

{Compute  the  inspiratory  and  expiratory  flow  calibration  factors 
tor  the  corrected  average  Binary  pump  volume.} 
Corr_I_flow_cal  :=  Corr_Pump_Vol  /  ( -l*Corr_JAvg_Vol_insp) ; 
Corr_E_flow_cal  :=  Corr_Pump_Vol  /  (Cbrr_Avg_Vol_jexpr); 

„„,™w  {****  DISPLAY  FLCW  CALIBRATIONS  ON  HP9826  CRT  ****} 

WRITELNt  'BINARY  ZERO  FLOV  =' ,Bin_jero_f  low)- 

Line_feed(2); 
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™{J5^.'Jnspiratory  and   exP'ratory  calibration   factors'); 
WRITELNC  'for   the  NON  CORRECTED  flows  .') ; 

toISS'  inSp-    flow  "libration   factor   -' ,Non_C_I_f  low_cal)  ; 

miTEUn.  Expr.    flow  calibration   factor  -' ,Non_CLE_f low_cal)  • 

Line_JeedC2) ; 

^!™-Nrinspiratory  and   expiratory  calibration  factors'); 
VvRITELM  '  f  or   the  CORRECTED  flows. '); 

SHSwi  Insp.    flow  calibration   factor  ='  ,Corr_J_f  low_cal) ; 

END-    {FLCWCAL}  flow  calibration  factor  ='  ,Corr_E_f  low_cal ) ; 


***  DECLARE  PROCEDURE  FOR  CALIBRATION  OF  TEMPERATURE  TRANSDUCER 

PROCEDURE  TEMPCALtVAR  Ta.Tb.Tc      :  REAL- 

VAR  Sam.S  :  INTEGER); 

CONST  Thermameter_caLJSlope  =  1;  (The  Thermometer  calibration  factor. 

This  is  the  slope  of  the  calibration  curve 
This  is  determined  by  calibrating  the  cal- 
ibration thermometer  with  the  Standard 
Thermometer  which  is  available  fromAnat. 
and  Phys . } 
Thermometer_cal_Y_int  =  -0.35;  (The  y  intercept  of  the  Calibration 

curve  of  the  calibration  thermometer.} 

TYPE  TOODTM=ARRAY   [1..3.1..3]   OF  REAL- 

VAR  Tlow,Tmid,Thigh,Tlow_bin,Tmid_bin:REAL; 

Thigh_bin,Norm_a  :REAL; 

I ,  To  t_t  emp :  I NTEGER ; 

B  i  n__t  emp ,  B  i  n_t  emp_i  nv  :TWDIM; 

***  BEGIN  TEMPERATURE  CALIBRATION  ROUTINE 
BEGIN  {TEMPCAL) 

***  INSTRUCT  USER  TO  PLACE  TC  IN  LOW  TEMPERATURE  WATER  BATH 
WUTELNC  'PUT  THERMOCOUPLE  IN  THE  LCWEST  TEMP  WATER  BATH.  '  )  ; 
***  GET  ACTUAL  TEMPERATURE  OF  LCW  TEMPERATURE  WATER  BATH 
WRITELNC  'ENTTR  THE  THE  THERMOMETER  READING  (deg  C)  .  '  )  ; 
READLN(Tlow); 

Determine  the  true  temperature. 
Tlow  ;=  Tlow  *  Thermometer_cal_Slope  +  Thermometer_cal_Y_int ; 

{ 

***  GO  TAKE  500  DATA  POINTS  ON  THE  TEMPERATURE  CHANNEL 

Sam:  =500; 

D\TA_COLLECT(Sam,S,LINEl  ,LINE2,LINE3.LINE4)  ; 

***   COMPUTE  THE  AVERAGE  VALUE  FOR  THE  500  TEMPERATURE  DATA  POINTS 

To  t_t  emp :  =0 ; 
FOR  I:  =  l  TO  Sam  DO 
BEGIN 
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Tot_temp:=Tot_temp+LINE4"[I  ] ; 
END; 
Tl  ow_b  i  n :  -To  t_t  emp/  Sam; 

***  DISPLAY  THE  AVERAGE  VALUE  ON  THE  HP9826  CRT 

\WITELN( 'AVERAGE  BINARY  VALUE  READ  FOR    ' ,T1ow:2:2,'   deg  C* ) ; 
MRITELNCIS:      '  ,Tlow_bin:4:l) ; 

***    INSTRUCT  USER  TO  PLACE  TC  IN  MIEDLE  TEMPERATURE  WATER  BATH 

WUTELNCPUT  THERMOCOUPLE   IN  THE  MIDDLE  TEMP  VOTER  BATH.'); 

***  GET  ACTUAL  TEMPERATURE  OF  MIDDLE  TEMPERATURE  WOER  BATH 

WRITELNC  'ENTER  THE  THE  THERMMETER  READING   (deg  C) .  '  )  ; 

BEEP; 

READLN(Tmid); 

{ 

Determine  the  true  temperature. 

Tmid  :=  Tmid  *  Thermometer_cal_Slope  +  Thermometer_cal_Y_int ; 

{ 

**»  GO  TAKE  500  DATA  POINTS  ON  THE  TEMPERATURE  CHANNEL 

LXTA_COLLECr(Sam,S,LINEl,UNE2,LINE3,LINE4); 

***  COMPUTE  THE  AVERAGE  VALUE  FOR  THE  500  TEMPERATURE  DATA  POINTS 

To  t_t  emp :  =0 ; 

FOR  I:  =  l  TO  Sam  DO 

BEGIN 

Tot_temp:=Tot_temp+LINE4"[I  ] ; 

END; 
Tmi  d_b  i  n ;  =To  t_t  emp  /Sam; 

***  DISPLAY  THE  AVERAGE  VALUE  ON  THE  HP9826  CRT 

WRITELNC  'AVERAGE  BINARY  VALUE  READ  FOR  \Tmid:2:2,'  degC); 
WUTELNClS:   '  ,Tmid_bin:4: 1 ) ; 

**«  INSTRUCT  USER  TO  PLACE  TC  IN  HIGH  TEMPERATURE  WVTER  BATH 

WRITELNC  'PUT  THERMX0UPLE  IN  THE  HIGH  TEMP  'WATER  BATH.  '  ) ; 

***  GET  ACTUAL  TEMPERATURE  OF  HIGH  TEMPERATURE  VATER   BATH 

WRITELNC  'ENTER  THE  THE  THERMMETER  READING  (deg  C)  .  '  )  ; 
BEEP;  6 

READLN( Thigh); 

Determine  the  true  temperature. 

Thigh  :=  Thigh  *  Thermameter_cal_Slope  +  Thermameter_cal_Y_int ; 

{ 

***  GO  TAKE  500  DATA  POINTS  ON  THE  TEMPERATURE  CHANNEL 

DATA_COLLECT(  Sam,  S  ,  LINE1 ,  LINE2  ,LINE3 ,  LINE4 ) ; 

***  COMPUTE  THE  AVERAGE  VALUE  FOR  THE  500  TEMPERATURE  DATA  POINTS 

To  t_t  emp :  =0 ; 

FOR  I:=l  TO  Sam  DO 
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BEGIN 

Tot_temp:=Tot_temp+LINE4~[l  ]  ; 
END; 
Thi  gi\_b  i  n :  =To  t_t  emp/Sam; 

***  DISPLAY  TOE  AVERAGE  VALUE  ON  TOE  HP9826  CRT 

WRITELNC 'AVERAGE  BINARY  VALUE  READ  FOR   ' ,Thigh:2:2, '   dee  C ) • 
WUTELNOlS:      ' ,Thigh_bin:4:l) ; 

***   SET  UP  TEMPERATURE  MATRIX  FOR  2ND  ORDER  CURVE  FIT  DETERMINATION 


Bi  n temp 

1,1 

:-l; 

B  i  n_t  emp 

2,1 

:-i; 

Biu_temp 

3,1 

:=1; 

Bin_temp 

1,2 

:=Tlow_bin; 

B  i  n_t  emp 

1,3 

:=SOR(TlcwL.bin); 

B  i  n_t  emp 

2,2 

:=Tmid_bin; 

Bin_temp 

2,3 

:=SQR(Tmid_bin); 

BiiL_temp 

3,2 

:"=Thigh_bin; 
:=SOR(Thigh_bin) 

B  i  n_t  emp 

3,3 

***  CALCULATE  TOE  DETERMINANT  OF  Bin_temp  MATRIX 
Norm_a:=Bin_temp[l  , 1 ]*(Bin_temp[2,2]* 


Bin_temp 
Bin_temp 


3,3]-Bin_temp[2,3] 
3,2])-Bin_temp[l,2]* 


CBin_temp[2,l]*Bin_temp[3,3]- 
Bin_temp[2 , 3] *Bin_temp[ 3 , 1 ] )+ 
Bin_temp   l,3]*(Bin_temp[2,l]* 
Bin_temp  3,2] -Bin_temp[2,2]* 
Bin_temp[3,l]); 

DETERMINE  TOE   INVERSE  OF  Bin_temp  MATRIX 


B  i  n_t  emp_i  nv  [  1 , 1  ] 
Bin_temp[3 
Bin_temp[3 


:=(Bin_temp[2,2]* 
i,3]-Bin_temp[2,3]» 
,2])/Norm_a; 
:  =  (Bin_temp[l  ,3]* 
,2]-Bin_temp[l,2]» 
,  3  ]  )  /No  rm_a  ; 
:=(Bin_temp[l,2]* 
,3]-Bin_temp[l,3]» 
,  2  ] )  /No  mi_a  ; 
:=(Bin__temp[3,l]* 

3]-Bin_temp[2,l]» 

3  ]  )  /No  rm_a  ; 

-(Bi 


Bin__temp[3 
Bin_temp_inv[  1 ,2] 

Bin_temp[3 

Bin_temp[3 
Bin_temp_inv[l  ,3] 

Bin_temp[2 

Bin_temp[2 
Biii_temp_inv[2,  l] 

Bii temp[2 

Bin_temp[3 
Bin_temp_inv[2 , 2] 

Bin_temp[3 

Biu_temp[3 
Bin_temp_inv[2,3] 

Bin_temp[2 

Bin_temp[2 
Bin_temp_inv[3, 1  ] 

Bin_temp[3, 

BiiL_temp[3, 
Bin_temp_inv[3,2] : 

Bin_temp[3, 

B  i  n_t  emp  [  3 , 
Bin__temp_inv[3,3] : 

Bin_temp[2, 

Bin_temp[l , 

***  MULTIPLY  INVERSE  OF  Bin_temp  MATRIX  BY  TEMPERATURE  TO  YIELD  2ND 
**•-  ORDER  COEFFICIENTS 


=(Bin_temp[l,l]* 

3]-Bin_temp[l,3]* 

l])/Norm_a; 

=(Bin_temp[l,3]» 

1]-Bin_temp[l,l]* 

,  3  ]  )  /No  rm_a  ; 

:  =  (Bin_temp[2,l]* 

,2]-Bia_temp[2,2]» 

,  l])/Noim_a; 

:=(Bia_temp[l ,2]* 

1l]-BirL_temp[l,l]» 

,  2  ] )  /No  rm_a  ; 

:=(Bin_temp[l,l]* 

,2]-Bin_temp[2,l]* 

,  2  ]  )  /No  rm_a  ; 
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} 

Tc  :=Bin_temp_inv[l,l  ]* 

Tl  ow+B  i  n_t  emp_i  nv  [  1 , 2  ]  * 

Tini  d+B  in__temp_inv[  1,3]* 

Thigh; 
Tb :=Bin_temp_inv[2 , 1 ] * 

Tlow+Bin_temp__inv[2,2]* 

Tini  d+B  i  n_t  emp_j  n  v  [  2 , 3  ]  * 

Thigh; 
Ta :  =B  i  n_t  emp_i  n  v  [  3 , 1  ]  * 

Tl  owf  B  i  n_t  emp_i  nv  [  3 , 2  ]  * 

Tini  d+B  i  n_t  emp__i  nv  [  3 , 3  ]  * 

Thigh; 
{ 
***  DISPLAY  2ND  ORDER  COEFFICIENTS  ON  HP9826  CRT 

WITELN('2nd  ORDER  POLYNOMIAL  CALIBRATION  COEFFICIENTS' ) ; 
\MUTELN(  'SECOND  ORDER  COEFFICIENT  -->  \Ta); 
WUTELN(  'FIRST  ORDER  COEFFICIENT  -->  \Tb); 
WRITELN( 'ZERO  ORDER  COEFFICIENT  -->  ',Tc); 
END;  {TEMPCAL) 


<  » 

BEGIN  MUN  SYSTEM  CALIBRATION  PROGRAM  (CAP2) 

BEGIN  (CAP2  START} 

NEW(Linel);  {CREATE  DYNAMIC  VARIABLE  Line  1} 
NEW(Line2);  {CREATE  DYNAMIC  VARIABLE  Line2} 
NEW(Line3);  {CREATE  DYNAMIC  VARIABLE  Line3} 
NEW(Line4);     {CREATE  DYNAMIC  VARIABLE  Line4} 

**«  GO  SET  DAM  CLOCK  AT  DESIRED  FREQUENCY 

CLKSET(S); 

{ 

***  SET  NUMBER  OF  SAMPLES  AT  500  POINTS  PER  CHANNEL 

Sara: -500; 

{ 

***  CALIBRATE  FRACTIONAL  CONCENTRATIONS  SIGNALS  IF  DESIRED 

PROMPT  ('CALIBRATE  FRACTIONAL  CONCENTRATION  SIGNAL?  (Y/N)  '); 
Asl01_or_N(Q) ; 
IF  0='Y'  THEN 
BEGIN 

GASCAL(01  ,Co2_cal  ,02_cal  ,Co2_dc_of  f  set , 
02_dc_offset  ,Sam,S); 
END; 
{ 
***  CALIBRATE  THE  TEMPERATURE  SIGNAL  IF  DESIRED 

WRITELN( 'Do  you  wish  to  calibrate  the  Temperature'); 
PRCMPT  ('Transducer?  (Y/N)   '); 
Ask_Y_or_N(Q) ; 
IF  Q='Y'  THEN 


{Keep  recalibrating  the  temperature  signal  until 
the  user  no  longer  desires  to  do  so.} 
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BEGIN 
REPEAT 

TEMPCAL(Ta  ,Tb  ,Tc  ,Sam,S) ; 

WRITELN( 'Do  you  wish  to  recalibrate  the  Temperature ' ) ; 
PRCMPT  ('Transducer?  (Y/N)   '); 
Ask_Y_or_N(Q) ; 
IF  Q='Y'  THEN 
BEGIN 

WRITELNC 'You  are  going  to  recalibrate  the  Temperature'): 
PRCMPT  ('Transducer.   Is  this  what  you  want  to  do?  (Y/N)'); 
AslOC-or_N(Q) ; 
END; 

UNTIL  Q='N'; 

END; 


( *** 


CALIBRATE  THE  FLOW  SIGNAL  IF  DESIRED  ***} 


PRCMPT  ('CALIBRATE  THE  FLCW  SIGNAL?  (Y/N)   '); 

AsleY_or_N(Q); 

IF  O-'Y'  THEN 

BEGIN  ' 

\VR1TELN( 'Do  you  wish  to  use  gas  temperature  and  gas'); 
WRITELNt 'viscosity  correct  ions  while  calibrating  the  flow'); 
WUTELNt  'signal?  (Y/N)'); 
Ask_Y_cr_N(Q); 
IF  0='Y'  THEN 
BEGIN 
Corr_flag  :=  TRUE; 

PRCMPT  ('Enter  the  percent  relative  humidty   '); 

BEEP; 

RFADLN(Rel_humid); 

Rel_humid  :=  Rel_humid  /  100; 

PRCMPT  ('Enter  the  room  temperature,  (dee  F)   '); 

BEEP; 

READLN(Roam_t  emp)  ; 

Room_temp  :=  (Roorn_temp  -  32.0)  *  5/9; 

PRCMPT  ('Enter  the  barometric  pressure,  (inches)   '); 
BEEP; 

READLN(Pb);      {read  in  inches} 
Pb  :=  Pb  *  25.4;  {torr/inch} 
END 
ELSE 

BEGIN 

Corr_Jlag    :-  FALSE; 

END; 

FLCttCAL(Non_C_I_f  low_cal  ,Non_C_E_f  low_ca! , 

Corr_I_f  low_cal  ,Corr_E_f  low_cal  ,Bin_zero__f  low, 
Sam,S,Corr__flag,Rel_humid,Pb,Room_temp,Ta,Tb,Tc); 

Line_feed(2); 
END; 


(***  STCKE  THE  CALIBRAT1CW  DATA  IN  AN  ASCII  FILE  IF  DESIRED  ««*} 

PRCMPT  C STCKE  CALIBRATION  FACTORS  ON  DISK?  (Y/N)   '); 
Ask_Y_or_N(Q)  ; 
IF  Q='Y'  THEN 
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BBGIN 

{***  GET  CALIBRATION  FILE  NAME  ***} 
WRITELN( 'ENTER  THE  FILE  NAME  FOR  CALIBRATION  FACTORS.'): 
BEEP; 
READLN(Fname); 


{***  Determine  where  to  store  the  'MONSTER'  ASCII  files.  ***) 


Msi_devices[l 
Msi_devices [2_ 
Msi_devices[3 


=  '#12 
=  '#13 
-  '#7 


{The  hard  disk,  platter  2} 


{The  hard  disk,  platter  3} 
{The  8  in.  floppy  disk.} 
WRITELNC 'You  may  store  the  ASCII  files  in  one  of  the'): 
WRITELNC  locations  below.'); 
WRITELNC  '); 

WRITELNC     l.   The  Hard  disk,  Platter  1'); 
WRITELNC     2.   The  Hard  disk,  Platter  2'); 
WRITELNC     3.   The  8  in.  floppy  disk.  ' ); 
WRITELNC  '); 
REPEAT 

BEEP; 

PRCMPT  ("Which  device  do  you  want  to  use?  ')• 
READLN  (Device_pointer); 

IF  (Device_pointer  <  l)  OR  (Device__pointer  >3)  THEN 
BEGIN 

WRITELNC  '); 

WRITELN  ('You  entered  an   invalid   selection'): 
END; 

UNTIL  (Device_pointer=l)  OR   (Device_pointer=2)  OR  (Device_pointer=3) ; 
Fname    :=  MSI_devices[Device_jpointer]   +  Fname   +   '  .ASC  ; 

(«»»  GEr  tcovyS  DATE  ***} 
WRITELNt 'ENTER  TODAYS  DATE,   FORMAT:     Month/Day/Year')- 
BEEP; 
READLN(Date); 

{***  CREATE  OR  RFWRITE  ASCII   FILE  «**} 
REWRITECF, Fname); 

{***  WRITE  ASCII   Co2_dc_offset  TO  FILE  ***} 
STRWITE(NSTR1NG,  1  ,TEMP ,Co2_dc_of  f  se  t  :4)  ; 
WRITELN(F.NSTRING)  ; 

{***  WRITE  ASCII  O2_dc_offset  TO  FILE   ***} 
STRWRITE(NSTRING,l,TEMP,02_dc_offset:4); 
WRITELN(F,NSTRING); 

{*»*  WRITE  ASCII   Bin_zero_flowTO  FILE  ***} 
STRWRITECNSTRING,  1  ,TEMP ,Bin_j:e ro_f  1  ow: 4)  ; 
WRITELN(F.NSTRING)  ; 

{***  WRITE  ASCII   Co2_cal   TO  FILE   »**} 
STRWRITECRSTRING,  1  ,TEMP  ,Co2_ca  1 )  ; 
WRITELN(F,RSTRING)  ; 

{***  WRITE  02_cal   TO  FILE   ***} 
STRWRITECRSTRING,  1  ,TEMP  ,02_cal  )  ; 
WRITELN(F,RSTRIN3); 
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{***  WUTE   Insp_flow_cal   TO  FILE  ***} 
STRWRITE(RSTRING,  1  ,TEMP,Non_C_I_f  low_cal )  • 
WUTELN(F.RSTRING); 

{***  WRITE  Expr_flow_cal  TO  FILE  ***} 
STRftRITEtRSTRING,  1  ,TEMP,Non_C_E_f  lovt_cal  )  • 
V*ITELN(F,RSTRING); 

{***  WRITE  Time_de lay  TO  FILE  ***} 
STRMRITE(RSTRING,  1, TEMP, Time_de  lay)  • 
WUTELN(F,RSTRING); 

{***  V«ITE  SAMPLING  FREQUENCY  (S)  TO  FILE   ***} 
STRvWITEtNSTRING,  1  ,TEMP,S:4) ; 
WRITELN(F,NSTRING); 

,™!r*  ^ITE  ACT0*1-  02  CONCENTRATION  FOR  GAS  MIXTURE  TO  FILE  ***} 
STRWRITE(RSTRING,l,TEMP,Ol);  ' 

V«ITELN(F,RSTRING); 

{***  "WRITE  2ND  ORDER  TEMPERATURE  COEFFICIENT  (Ta)  TO  FILE   «**> 
STKWUTE(RSTRING,l,TEMP,Ta); 
■WRITELN(F.RSTRING); 

{•».  ^jjj^   1ST  Qpj^j  temperature  OOEFFICIENT  (Tb)  TO  FILE  ***) 
STRWRITE(RSTRING,l,TEMP,Tb);  ' 

WUTELN(F.RSTRING); 

{**»miTE  CONSTANT  TEMPERATURE  COEFFICIENT   (Tc )  TO  FILE  ***) 
STRWRITE(RSTRING,l,TEMP,Tc)- 
WRITELN(F,RSTRING); 

(***  WITE  TODAYS  DATE  TO  FILE   ***} 
WRITELN(F.Date); 

{This   section  writes   theFlow  calibrationn  values  which  are  a  result   of 
version  2.0  of   the  Calibration  Aquisi t ion  Program  (CAP2).     The  vis- 
cosity corrected,   STPD  flow  calibration  values   are  written  first 
followed  by   the   barometric   pressure   and   the   relative  humidity.} 

STRWRITE(RSTRING,l,TEMP,Corr    I_jf  low_cal )  • 
VtflTELN   (F.RSTRING);  ' 

STRWRITECRSTRING, 1 ,TEMP,Corr_E_f low_cal ) • 
WRITELN  (F.RSTRING); 

STRWRITE(RSTRIN3,l,TEMP,Pb): 
VtflTELN   (F.RSTRING); 

STRWRITE(RSTRING,  1  .TEMP  ,Re  l_humid  )  • 
V«ITELN  (F.RSTRING); 

STRWRITE(RSTRING,  1  ,T£MP,Room_temp)  ; 
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WRITELN  (F.RSTRING); 

{***  CLOSE  AND  COMPACT  THE  CALIBRATION  FILE  **»} 
CLOSE(F, •CRUNCH'); 

END; 
WRITELN  (  '  CAP2  PROGRAM  RUN  COMPLETE'  )  ; 

BEEP; 
END.    {CAP2  END} 


A6  . 2   DAP2;  A  Pascal  RnuT.  ine  for 
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.fif.  Respi  ratnry  Data 


The  Pascal  program  DAP2  CQata  Acqui  si  t  i  on  ire-gram,  version  2J  is 
used  to  collect  respiratory  data  from  an  instrumented  subject.  A 
flowchart  for  the  program  is  given  in  Chapter  6,  Section  2.  The  method 
used  by  DAP2  to  control  the  DAM  is  described  by  Riblett  [13].  The 
contents  of  the  data  files  has  the  same  file  structure  specified  by 
Riblett:  four  serial  ASCII  files.  A  description  of  each  of  the 
procedures  used  by  DAP2  follows. 

A6  . 2 . 1   ££EE  Procedure 

The  procedure  BEEP  sounds  an  audible  beep.  This  procedure  is 
used  to  gain  the  operator's  attention.  This  is  the  same  procedure  used 
by  CAP2. 

Variables  passed  to  Thj_. 
None 

Variables  returned  hy  tJi£_ . 
None 

Variable  def ini  t inns 

No  var  i  ables  used . 

A6  .  2  .  2   BIT  HI  AQi  BIT  TST  Procedures 

BIT_HI  and  BIT_TEST  are  external  assembly  language  procedures. 
These  procedures  are  used  to  control  the  DAM.  BIT_HI  and  BIT_TEST 
procedures  are  documented  by  Riblett  [13].  These  procedures  are  also 
used  by  CAP2. 


A6.2.3  CHECK  IF  DISK  fitij  procedurP 

The  CHECK_IF_DISK_FULL  procedure  checks  the  storage  device  to 
determine  if  the  disk  contains  uncompacted  ASCII  data.  A  status  file, 
named  "DI  SK.STAT.ASC' ,  created  by  the  ASCI_CONF  Pascal  program  is 
checked  to  determine  if  the  data  has  been  compacted. 

■  passed  _LQ_  the  procedure 
Msi_device  -  string,  passed  by  reference. 
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Variables  -returned  ix  the  procedure 

Disk_stat  -  string,  passed  by  reference. 

Variable  def ini  tinns 

Disk_stat  -  a  string  variable  containing  the  status  of  the  disk. 
Disk_stat  is  equal  to  'EMPTY'  if  the  disk  does  not  contain 
ASCII  data  and  'FULL'  if  the  disk  does  contain  ASCII  data. 

Di  sk_stat_f  i  1  e  -  a  text  variable  associated  with  the  file 
specified  by  File_name. 

File_name  -  a  string  containing  the  name  of  the  file  whose  status 
is  to  be  checked.  File__name  is  set  equal  to  the  variable 
Msi_device  concatenated  with  the  string  'DISK_STAT.ASC. 

Msi_device  -  a  string  containing  the  mass  storage  device  which  is 
to  be  checked. 

A6  .  2  .  4   CHECK  .SATURATION  Procedure 

CHECX-SATURATION  determines  if  a  datum  sample  is  saturated,  equal 
to  the  maximum  sample  value  of  4095  or  equal  to  the  minimum  sample 
value  of  0.  If  a  saturated  value  is  found,  the  appropriate  saturated 
value  counter  is  incremented.  CHECK_SATURATION  is  nested  within  the 
MAXMIN  procedure. 

Va r i a b  1 8 a  passed  _La  the  procedure 

Number_equal_4095  -  integer,  passed  by  reference. 
Number_equal_0  -  integer,  passed  by  reference. 
Sample  -  integer,  passed  by  value. 

Variables  returned  by  the  procedure 

Number_equal_4095  -  integer,  passed  by  reference. 
Number_equal_0  -  integer,  passed  by  reference. 

Va  r  i  a  b 1 e  def ini  t inns 

Number_equal_409S  -  an  integer  value  which  is  incremented  if  the 

sample  is  equal  to  4095. 
Number_equal_0  -  an  integer  value  which  is  incremented  if  the 

sample  is  equal  to  0. 
Sample  -  an  integer  which  is  equal  to  the  sampled  value  to  be 

checked  for  saturation. 
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A6  .  2  .  5   CLKSET 


The  procedure  CLKSET  sets  the  8253  timer  in  the  DAM  wi  th  the 
desired  sampling  frequency.  CLKSET  is  called  by  the  main  CAP2 
procedure  to  set  the  DAM's  sampling  frequency.  This  procedure  was 
designed  by  Riblett  [13]  and  has  no  modifications  for  version  2  of  the 
calibration  program  (CAP2).   CLKSET  is  also  used  by  CAP2. 

Variables  passed  j_q_  the  procedure 
None 

Va  r  i  a  h 1 e  s  returned  _b_y_  the  procedure 

S      -  integer,  passed  by  reference. 

Variable  def ini  t ions 

Fl      -  an  integer  used  to  set  the  least  significant  byte  of  the 

8253  timer. 
Em     -  an  integer  used  to  set  the  most  significant  byte  of  the 

8253  t  ime  r . 
S      -  an  integer  equal  to  the  user  specified  sampling 

frequency. 
X      -  an  integer  variable  used  to  set  clock  1  of  the  8253 

t  ime  r  . 


A6 . 2 . 6   DAP 2  Procedure 

The  DAP 2  procedure  provides  the  main  control  of  the  the  data 
acquisition.  DAP2  calls  the  DATA_COLLECTION  procedure,  the  MAXMIN 
procedure,  and  the  DATASTORAGE  procedure .  HAP2  also  calls  the  BEEP 
and  HOLDJJP  procedures. 


Variabl es  passed  ifl.  the  procedure 
None 


Va  r  i  a  h 1 e  s 
None 


.  .bx  the  . 


Variable  def ini  t inns 

Co2max  -  an  integer  containing  the  maximum  sampled  datum  point 

obtained  from  the  C02  channel,  Linel. 
Co2min  -  an  integer  containing  the  minimum  sampled  datum  point 

obtained  from  the  CO,  channel,  Linel. 
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Linel   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  1,  the  CO,  channel, 

of  the  DAM. 
Line2   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  2,  the  O,  channel,  of 

the  DAM. 
Line3   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  3,  the  flow  channel, 

of  the  DAM. 
Line4   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  channel  4,  the  temperature 

channel,  of  the  DAM. 
MAX    -  a  constant  value  equal  to  24,000,  the  maximum  number  of 

samples  which  may  be  collected. 

-  an  integer  containing  the  maximum  sampled  datum  point 
obtained  from  the  02  channel,  Line2. 

-  an  integer  containing  the  minimum  sampled  datum  point 
obtained  from  the  0,  channel,  Line2. 

S      -  an  integer  containing  the  sampling  frequency. 

Sam    -  an  integer  containing  the  number  of  samples  to  be 

col lected . 
Tmax    -  an  integer  containing  the  maximum  sampled  datum  point 

obtained  from  the  temperature  channel,  Line4. 
Tmin    -  an  integer  containing  the  minimum  sampled  datum  point 

obtained  from  the  temperature  channel,  Line4. 
Vmax    -  an  integer  containing  the  maximum  sampled  datum  point 

obtained  from  the  flow  channel,  Line3. 
Vrnin    -  an  integer  containing  the  minimum  sampled  datum  point 

obtained  from  the  flow  channel,  Line3. 

A6  .  2  .  7   DATA  mi.l.FfT  Procedure 

The  procedure  DATA_COLLECT  provides  the  necessary  control  of  the 
DAM  to  collect  a  set  of  data  from  four  channels.  DATA_COLLECT  samples 
the  analog  signals.  DATA_COLLECT  calls  the  assembly  language 
procedures  BIT_HI  and  BIT_TST  to  test  the  status  of  the  DAM.  This 
procedure  was  designed  by  Riblett  [13]  and  has  only  minor  modifications 
for  version  2  of  the  calibration  program  (CAP2).   This  is  the  same 


02max 


02min 
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procedure  used  by  CAP2  to  collect  data. 

S      -  integer,  passed  by  reference. 
Sam    -  integer,  passed  by  reference. 

Variables  returned  _b_y_  the  procedure 

Linel  -  integer  array,  passed  by  reference. 
Line2  -  integer  array,  passed  by  reference. 
Line3  -  integer  array,  passed  by  reference. 
Line4   -  integer  array,  passed  by  reference. 

Va  r  i  a  b 1 e  def ini  t  ions 

Chana   -  a  constant  value  equal  to  15359  which  sets  the  DAM's 

analog  mu ltiplexer  so  that  channel  A  is  passed  to  the 

analog  to  digital  converter. 
Chanb   -  a  constant  value  equal  to  13311  which  sets  the  DAM's 

analog  multiplexer  so  that  channel  B  is  passed  to  the 

analog  to  digital  converter. 
Chanc   -  a  constant  value  equal  to  11263  which  sets  the  DAM's 

ana  1 o g  mu ltiplexer  so  that  channel  C  is  passed  to  the 

analog  to  digital  converter. 
Chand   -  a  constant  value  equal  to  9215  which  sets  the  DAM's 

analog  multiplexer  so  that  channel  D  is  passed  to  the 

analog  to  digital  converter. 
Del     -  an  integer  variable  used  in  the  delay  loop  that  allows 

the  sample  and  hold  amplifiers  to  reach  equilibrium  once 

the  hold  command  is  given. 
I       -  an  integer  variable  used  as  a  loop  counter  and  a  pointer 

into  the  four  data  arrays  during  collection  of  the 

specified  number  of  datum  points. 
Linel   -  an  integer  array  containing  the  sampled  data  acquired 

from  the  OOj  channel  of  the  DAM. 
Line2   -  an  integer  array  containing  the  sampled  data  acquired 

from  the  O2  channel  of  the  DAM. 
Line3   -  an  integer  array  containing  the  sampled  data  acquired 

from  the  flow  channel  of  the  DAM. 
Line4   -  an  integer  array  containing  the  sampled  data  acquired 

from  the  temperature  channel  of  the  DAM. 
Mask    -  a  constant  value  equal  to  4095  which  is  used  to  mask  of 
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-the  all  but  the  1-2  least  significant  data  bits. 
R4     -  an  integer  var iabl e  whi ch  is  loaded  with  the  contents  of 

register  4  of  the  GPIO. 
R6     -  an  integer  variable  which  is  loaded  with  the  contents  of 

register  6  of  the  GPIO. 
S      -  an  integer  equal  to  the  user  specified  sampling 

frequency. 
Sam    -  an  integer  variable  equal  to  the  number  of  samples  to  be 

collected  form  the  DAM. 

A6  . 2 . 8   DATA  STORAGE  Procedure 

The  data  storage  procedure,  DATASTORAGE ,  stores  the  collected 
data  and  the  max  imum  and  minimum  values  from  each  channel.  The  file 
format  is  specified  by  Riblett  [13].  The  procedure  CHECKJF_DISK_FULL 
is  used  to  determine  if  the  disk  contains  data.  The  procedure 
SET_DISK_FULL_FLAG  is  used  to  set  the  disk  status  to  full. 

Co2max  -  integer,  passed  by  value. 

Co2min  -  integer,  passed  by  value. 

Linel  -  array,  passed  by  reference. 

Line2  -  array,  passed  by  reference. 

Line3  -  array,  passed  by  reference. 

Line4  -  array,  passed  by  reference. 

02max  -  integer,  passed  by  value. 

02mi  n  -  integer,  passed  by  value. 

Sam  -  integer,  passed  by  value. 

Tmax  -  integer,  passed  by  value. 

Tmin  -integer,  passed  by  value. 

Vmax  -  integer,  passed  by  value. 

\tain  -  integer,  passed  by  value. 

Variables  returned  Jjy_  the  procedure 
None 

Va  r  i  a  b I f  def ini  t  inn  a 

Co2max    -    an    integer    containing    the  maximum  sampled  datum  point 
•  obtained    from  the   002    channel,    Linel. 


Linel 


Line2 


Line3 


Line4 
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Co2min  -  an  intege  r  -con  t  a  ining  the  minimum  sampled  datum  point 

obtained  from  the  C02  channel,  Linel. 
Device_pointer  -  an  integer  which  is  used  to  indicate  which  mass 

storage  device  is  to  contain  the  calibration  data. 
Disk_stat  -  a  string  variable  containing  the  status  of  the  disk. 

Disk_stat  is  equal  to  'EMPTY'  if  the  disk  does  not  contain 

ASCII  data  and  'FULL'  if  the  disk  does  contain  ASCII  data. 
F      -  a  text  variable  as soc i a t ed  wi  th  the  file  specified  by 

the  string  variable  File_name. 
File_name  -  a  string  containing  the  name  of  the  file  to  be 

stored  . 

-  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  1,  the  C02  channel. 

-  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  2,  the  Cs  channel. 

-  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  3,  the  flow  channel. 

-  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  4,  the  temperature 
channe 1 . 

MSI_devices  -  a  string  array  containing  three  elements.  These 
elements  correspond  to  the  three  mass  storage  devices 
which  can  be  used  for  the  storage  of  the  calibration  data. 
Array  element  1  contains  #12  corresponding  to  platter  1  of 
the  hard  disk,  element  2  contains  #13  corresponding  to 
platter  2  of  the  hard  disk,  and  element  3  contains  #7 
corresponding  to  the  8-inch  disk  drive. 

NSTRING-  a  string  variable  used  to  represent  the  ASCII  value  of 
an  integer  number. 

-  an  integer  containing  the  maximum  sampled  datum  point 
obtained  from  the  02  channel,  Line2. 

-  an  integer  containing  the  minimum  sampled  datum  point 
obtained  from  the  02  channel,  Line2. 

-  an  integer  containing  the  number  of  samples  to  be 
col  lee  ted  . 

-  an  integer  variable  needed  by  the  STRWRITE. funct ion  to 
convert  the  calibration  data  to  ASCII  strings. 

-  an  int  eg-e  r -containing  the.  max  imum  samp  1  ed  datum  point 


02max 


02mii 


Sam 


TEMP 


Tmax 


Tlnin 


Vmax 


Vinin 


A6.56 
obtained  from  the  temperature  channel,  Line4. 

-  an  integer  containing  the  minimum  sampled  datum  point 
obtained  from  the  temperature  channel,  Line4. 

-  an  integer  containing  the  maximum  sampled  datum  point 
obtained  from  the  flow  channel,  Line3. 

-  an  integer  containing  the  minimum  sampled  datum  point 
obtained  from  the  flow  channel,  Line3. 


A6  . 2 . 9   HOLD  UP  Procedure 

The  hold  up  procedure,  HOLDJJP,  pauses  program  execution  until 
the  operator  is  ready  to  proceed.  To  continue  program  execut i on  the 
operator  must  press  the  'ENTER'  key.  This  procedure  was  designed  by 
Riblett  [13]  and  has  no  modifications  for  version  2  of  the  calibration 
program  (CAP2).   This  procedure  is  also  used  by  CAP2. 

Va  r  i  a  b  I  e.  s  passed  _t_n_  the  procedure 
None 

Variables  returned  ia.   the  procedure 
None 

Variabl e  def ini  tinns 

No  variables  used. 


A6 . 2 . 1 0   Line  feed  Procedure 

The  line  feed  procedure,  Line_feed,  sends  a  specified  number  of 
line  feeds  to  the  screen.   This  procedure  is  also  used  by  CAP2. 

Variables  passed  to  the  procedure 

-  integer,  passed  by  value. 


I 


Va  r  i  a  b  1  S  a  returned  Jjx  the  . 
None 

Variable  def ini  tinns 

I  -  an  integer  variable  containing  the  number  of  line  feeds 
to  send  to  the  screen. 

J  -  an  integer  variable  used  as  a  loop  counter.  J  is 
incremented  for  each  line  feed  which  is  sent  until  it  is 
equal  to  the-  number  of  line  feeds  to  be  sent,  I. 
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A6  .  2  . 1 1   MAXMTN  . 

MAXMIN  computes  the  maximum  sample  value  and  minimum  sample  value 
obtained  from  each  channel.  The  procedure  calls  CHECX_SATURATION  to 
determine  the  number  of  samples  that  are  saturated,  equal  to  4095  or  0, 
from  each  channel. 


passed  1SL   the  procedure 
Sam    -  integer,  passed  by  reference. 

Variables  returned  by  the 


Co2max 

Co  2mi  n 

02max 

02min 

Tmax 

Tmin 

Vmax 

■Vmin 


integer,  passed  by  value, 

integer,  passed  by  value, 

integer,  passed  by  value, 

integer,  passed  by  value, 

integer,  passed  by  value, 

integer,  passed  by  value, 

integer,  passed  by  value, 

integer,  passed  by  value. 


Variable  def  in  i  t j  nm 

Co2max  -  an  integer  containing  the  maximum  sampled  datum  point 

obtained  from  the  C02  channel,  Linel. 
Co2min  -  an  integer  containing  ihe  minimum  sampled  datum  point 

obtained  from  the  C02  channel,  Linel. 
I       -  an  integer  variable  used  as  a  pointer  into  the  data 

arrays . 

-  an  integer  array,  of  21,000  elements,  containing  the 
sampled  values  obtained  from  channel  1,  the  C02  channel. 

-  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  2,  the  02  channel. 


Linel 


Li  ne2 


Line3 


Line4 


-  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  3,  the  flow  channel. 

-  an  integer  array,  of  24,000  elements,  containing  the 
sampled  values  obtained  from  channel  4,  the  temperature 
channel  . 

Num_CO2_equal_409S  -  an  integer  equal   to  the  number  of  C02 

samples  which  are  saturated  on  the  positive  rail,  4095. 
Num_CO2_equal_0  -  -an  integer  equal  to  .the  number  of  C02  samples 
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-'■which  are  saturated  on  the  negative  rail,  0 
Num_02_equa  1_4095  -  an  integer  equal  to  the  number  of  02  samples 

which  are  saturated  on  the  positive  rail,  4095. 
Num_02_equa  1_0  -  an  integer  equal  to  the  number  of  0,  samples 

which  are  saturated  on  the  negative  rail,  0 
Num_T_equa 1_4095  -  an  integer  equal  to  the  number  of  temperature 

samples  which  are  saturated  on  the  positive  rail,  4095. 
Num_T_equa  1_0  -  an  integer  equal  to  the  number  of  temperature 

samples  which  are  saturated  on  the  negative  rail,  0 
Num_V_equal_4095  -  an  integer  equal  to  the  number  of  flow  samples 

which  are  saturated  on  the  positive  rail,  4095. 
Num_V_equal_0  -  an  integer  equal  to  the  number  of  flow  samples 

which  are  saturated  on  the  negative  rail,  0 
02max   -  an  integer  containing  the  maximum  sampled  datum  point 

obtained  from  the  02  channel,  Line2. 

-  an  integer  containing  the  minimum  sampled  datum  point 
obtained  from  the  02  channel,  Line2. 

-  an  integer  containing  the  number  of  samples  to  be 
col  lee  ted . 

Tmax    -  an  integer  containing  the  maximum  sampled  datum  point 

obtained  from  the  temperature  channel,  Line4. 
Tmin    -  an  integer  containing  the  minimum  sampled  datum  point 

obtained  from  the  temperature  channel,  Line4. 
Vmax    -  an  integer  containing  the  maximum  sampled  datum  point 

obtained  from  the  flow  channel,  Line3. 
\roin    -  an  integer  containing  the  minimum  sampled  datum  point 

obtained  from  the  flow  channel,  Line3. 

A6.2.12   SET  DISK  FU1.1.  Fl.Afi  ProceriiirP 

The  SET_DISfL_FULL_FLAG  procedure  sets  the  status  of  the  data 
storage  disk  to  the  full  state  indicating  the  disk  contains  uncompacted 
ASCII  data.  A  status  file,  named  'DI  SK_STAT.ASC ,  created  by  the 
ASCI__CONF  Pascal  program  is  set  to  the  'FULL'  state. 


02mii 


Sam 


■  passed  _Lo_  the  procedure 
Msi__device  -  string,  passed  by  reference. 
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Variabl  es  returned  Jjx  the  procedure 

None 

Variable    definitions 

Di  sk_s  ta  t_f i  1  e     -    a     text     variable     associated    with     the     file 

specified    by    the    File_name. 
File_name     -    a     string    containing    the    name    of    the    file     to    be 

checked    for    the   disk   status.      Fil e_n ame    is    set    equal    to 

the     variable    Msi_device     concatenated   with    the    name 

'DISK_STAT.ASC  . 
Msi_device    -    a    string   containing    the  mass    storage   device  which    is 

to    be    checked. 
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A6.2.13-DAP2  Program  Listing 

SSYSPROG  ON$ 

STABLESS 

SLINES  57$ 

PROGRAM  DAP2(  INPUT, OUTPUT)  ; 

/*******************************##*******»****#  ******************************* 

DATA  ACQUISTION  AND  STORAGE  ROUTINE 

PASCAL  REV  2.1  SOURCE  FILENAME:   DAP2.TEXT 

Department  of  Elecrtical  and  Computer  Engineering 
Kansas  State  University 

REVISION       DATE  PROGRAMMER 


1-0  JUNE  28,  1984  LOREN  E.  RIBLETT,  JR. 

2.0  l-Feb-85  Michael  Masters 

*****************************************************************************,: 

PURPOSE 

THIS  ROUTINE  PERFORMS  ALL  THE  NECESSARY  ACTIONS  TO  ACQUIRE, 
CONVERT  (TO  ASCII),  AND  STORE  FOUR  CHANNELS  (002,  02,  FLCW, 
AND  TEMPERATURE)  OF  12-BIT  BINARY  DATA  FROM  THE  DAM. 

ROUTINE(S)  CALLED  BY  THIS  ROUTINE 

BIT_TST  -  68000  ASSEMBLY  MODULE  THAT  WITS  UNTIL  THE  ECC  BIT 

ON  THE  DAM  GOES  HIGH,  THEN  LOW 
BITJTI  -   68000  ASSEMBLY  MXJULE  THAT  WAITS  UNTIL  THE  ECC  BIT 

ON  THE  DAM  GOES  LCW 
CLKSET  -   INTERNAL  PROCEDURE  THAT  SETS  THE  8253  TIMER  CHIP  FOR 

THE  PROPER  SAMPLING  FREQUENCY 
MWMIN  -   INTERNAL  PROCEDURE  THAT  DETERMINES  THE  MAXIMM  AND 

MJ.NTMM  VALUES  FOR  EACH  OF  THE  FOUR  DATA  CHANNELS 
DATA_STORAGE  -  INTERNAL  PROCEDURE  THAT  CONVERTS  THE  FOUR 

CHANNELS  OF  12-BIT  VALUES  TO  ASCII  AND  STORES 
THESE  VALUES  IN  FOUR  SEPERATE  ASCII  FILES 
HOLDJJP  -  INTERNAL  PROCEDURE  FOR  TEMPORARY  PAUSING  OF  PROGRAM 

OPERATION 
EMA_COLLECT  -  INTERNAL  PROCEDURE  THAT  CONTROLS  THE  DAM  IN  THE 
PROPER  FASHION  TO  COLLECT  THE  DESIRED  NUMBER  OF 
DATA  POINTS 

BEEP    -  Sounds  an  audible  beep  to  alert  the  operator. 

Line_feed  -  Sends  a  specified  number  of  line  feeds  to  the 
t  e  rmi  na  1 . 

iiui«tt«i>««uttt»«tM«i«»>«»iui>tn»n*ttw«ti>i«i tiimoiitotttii 

NOTE  1 :   THE  DAM  SHOULD  BE  CONNECTED  TO  THE  HP9826  COMPUTER  VIA  A 

GPIO  INTERFACE  AT  SELECT  CODE  #12.   THIS  INSURES  THE  PROPER 
DEVICE  ADDRESS  FOR  SENDING  AND  RECEIVING  INFORMATION  BETWEEN 
THE  DAM  AND  THE  HP9826. 

NOTE  2:  A  MAXIMM  OF  24000  DATA  POINTS  PER  CHANNEL  IS  ALLOAED  WITH 
THE  CURRENT  VERSION  OF  DAP2 .   THIS  VALUE  MAY  HAVE  TO  BE 
REDUCED  IF  SUBSTANTIAL  ADDITIONS  TO  DAP2'S  PROGRAM  LENGTH 
IS  REQUIRED. 
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NOTE  3:  TOO  EXTERNAL  68000  ASSEMBLY  LANGUAGE  ROUTINES  ARE  UTILIZED 
BY  DAP2  TO  HANDLE  THE  HIGH  SPEED  REQUIREMENTS  NEEDED  TO 
MONITOR  THE  End  Of  Conversion  (EOC)  SIGNAL  FROM  THE  DAM. 

NOTE  4:  AT  PRESENT,  A  MAXIMUM  SAMPLING  RATE  OF  350  HZ  IS  RECOMvENDED. 
THIS  VALUE  MANY  HAVE  TO  BE  REDUCED  IF  SUBSTANTIAL  ADDITIONS 
TO  THE  PROCEDURE  DATAJDLLECT  ARE  MADE. 

{  ' 

*»*  lq^d  NECESSARY  LIBRARY  MODULES 

> 

IMPORT  IODECLARATIONS,GENERAL_0, 

GENERAL_1 ,  IOCCMASM; 
{ 
***  DECLARE  FOUR  LARGE  EXTERNAL  DATA  ARRAYS  AND  POINTERS 

{C02  CHANNEL  DATA  ARRAY} 


TYPE  L1=ARRAY  [l.. 24000]  OF  INTEGER; 

FT1=~L1;     {POINTER  TO  ARRAY  Ll} 

L2=ARRAY  [l.. 24000]  OF  INTEGER; 
PT2="L2;     {POINTER  TO  ARRAY  L2} 

L3-ARRAY  [l.. 24000]  OF  INTEGER; 
PT3="L3;     {POINTER  TO  ARRAY  L3) 

L4=ARRAY  [l.. 24000]  OF  INTEGER; 
PT4="L4;     {POINTER  TO  ARRAY  L4) 


{02  CHANNEL  DATA  ARRAY} 
{FLCW  CHANNEL  DATA  ARRAY} 
{TEMPERATURE  CHANNEL  DATA  ARRAY} 


***   SET  PROGRAM  CONSTANTS 

} 

CONST  MAX=24000 ;  {MAXIMJVI  NUMBER  OF  SAMPLES  PER  CHANNEL  ALLCttED) 

***  DECLARE  PROGRAM  VARIABLES 
} 
VAR  S, Sam:  INTEGER; 

Co  2mi  n ,  02mi  n ,  Mni  n ,  Tmi  n , 

Co2max.02max,\max,1max      :       INTEGER; 

Linel:  PT1 ; 

Line2:  PT2 

Line3:  PT3 

Line4:  PT4 

{***  DECLARE  EXTERNAL  68000  ASSEMBLY  MDDULES  ***} 
PROCEDURE  BIT__TST;EXTERNAL;     {WAITS  UNTIL  EOC  BIT  GOES  HIGH,  THEN  LOW} 
PROCEDURE  BIT_HI  ;EXTERNAL;     {WVITS  UNTIL  EOC  BIT  IS  LOW} 

PROCEDURE  BEEP; 

j«l«««<>tl»»tt>«SI»t>ttttl>«t»t»tt>tt * «tl>»t(»ttS t> 

»m>«« »»m«>>«>>«t«tt«nitmm»«t«t«>»t««,»«»t>« 

* 

*  Procedure  Name :   BEEP  » 
* 

*  File  Name:      DAP2  » 
* 

REVISION  DATE  PROGRAMvER  * 

„, 

10  l-Feb-85       Michael  Masters  • 

* 

*  Procedure  discript ion:  » 

This  procedure  sounds  an  audible  beep  to  the  operator.        * 

* 

*  Calling  sequence:  * 

*  BEEP ;  « 


A6.62 


Parameters  supplied  by  the  calling  routine. 
None 

Parameters  returned  to  the  calling  routine. 
None 


BB3IN 

PRCMPT  (CHR(7)); 

END; 


PROCEDURE  Line_feed(I        :  INTEGER); 

*  * 

*  Procedure  Name:   Line  feed  * 

*  * 

*  File  Name:       DAP2  » 

*  * 

*  REVISION               DATE           PROGRAMMER  * 

*       * 

1.0                l-Feb-85       Michael  Masters  * 

*  * 

*  Procedure  discription:  * 

This  procedure  sends  a  specified  number  of  line  feeds  to  the   * 

*  terminal .  * 

*  . 

*  Calling  sequence:  * 

*  Line_feed(I);  * 

*  * 
Parameters  supplied  by  the  calling  routine.  * 

*  * 
I  -  is  an  integer  value  parameter  corresponding  to  the    * 

number  of  line  feeds  to  be  sent  to  the  terminal.      * 

Parameters  returned  to  the  calling  routine.  * 

*  None  * 


VAR     J       :       INTEGER; 

BEGIN 

FOR  J  :=  1  TO  I  DO         {Send  the  specified  number  of  line  feeds} 

BEGIN 

PROMPT  (CHR(IO));   {Send  the  line  feed} 

END; 
END; 
{— _        _____  1 


{***  DECLARE  PROCEDURE  FOR  PAUSING  PROGRAM  OPERATION  »**} 
PROCEDURE  FDLDJJP; 
BEGIN 
PRCMPT  ( 'PRESS  ENTER  TO  CONTINUE.  ' ) ;      {DISPLAY  PRCMPT  ON  CRT} 
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BEEP; 

READLN;     {WUT  UNTIL  •ENTER'  IS  PRESSED} 

END;  {HOLDJJP  END} 


{**«  DECLARE  PROCEDURE  TO  SET  DAM  CLOCK  ****} 
PROCEDURE  CLKSETCVAR  S:  INTEGER);     {PASS  SAMPLING  FREQUENCY  (S)} 

VAR  X,fin,Fl:  INTEGER; 
BEGIN 

{«*»  h^ve  USER  ENTER  THE  SAMPLING  FREQUENCY  ***} 
PROMPT  CENTER  SAMPLING  FREQUENCY:   '); 
BEEP; 
READLN(S); 

{***  DETERMINE  16-BIT  COUNTER  VALUE  FOR  CLK1  IN  8253  TIMER  CHIP  «**} 
X:=10O0000  DIV  2  DIV  S; 
IF  X>=256  THEN 

BEGIN 

Fm:-X  DIV  256; 

Fl:=X-2S6*Rn; 

END 
ELSE 

BEGIN 

Fm:=0; 

F1:=X; 

END; 

{***  SET  COUNTER  0  IN  8253  TIMER  TO  MXE  3  *»*} 
IOCONTROL(12,3,15678);  {11110100111110} 
IOCONTROL(12,3,15422);  {11110000111110} 
lOCONTROLC 12, 3,15670);  {11110100110110} 

{***  SET  COUNTER  1  IN  8253  TIMER  TO  MXE  2  ***} 
IOCONTROL(12,3,15740);  {11110101111100} 
IOCONTROL(12,3,15484);  {11110001111100} 
IOCONTROL(12,3,15732);  {11110101110100} 


{***  LOAD  LSB  OF  COUNTER  0  ***} 
lOCONTROLC 12,3, 9474 ) ;   { 10010100000010} 
IOCONTROL(12,3,9218);   {10010000000010} 
lOCONTROLC 12, 3, 9474);   {10010100000010} 


{***  LOAD  MSB  OF  COUNTER  0  «" 
lOCONTROLC 12, 3, 9472);   {10010100000000} 
IOCONTROL(12,3,9216);   {10010000000000} 
lOCONTROLC 12, 3, 9472);   {10010100000000} 


{***  LOAD  LSB  OF  COUNTER  1  ***} 
lOCONTROLC 12 , 3, 13568+F1 ) ;  { 1 1010100000000} 
lOCONTROLC 12,3,1331 2+F1 ) ;  {1 1010000000000} 
lOCONTROLC 12 , 3 , 13568+F1 ) ;  { 1 1010100000000} 


{«**  LOADMSB  OF  COUNTER  1  «*«} 
lOCONTROLC 12,3, 13568+Fm);  {11010100000000} 
ICCONTROL(l2,3,13312+fin);  {11010000000000} 
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IOCONTROLC 12,3,1 3568+Rn) ;    { 1 1010100000000} 
END;    {CLKSET  END} 


PROCEDURE  NftXMINCVAR  Sam,Co2max,Co2min,02max, 

02min,\taax,\fain,Tmax,Thiin  :                INTEGER); 

*  * 

*  Procedure  Name:   M4XMIN  * 

*  * 

*  File  Name:      DAP2  * 

*  « 

*  REVISION              DATE  PROGRAMMER               * 


1-0  JUNE  28,  1984   IjOREN  E.  RIBLETT,  JR. 

2.0  l-Feb-85       Michael  Masters  * 

* 
Procedure  disoription:  * 

This  procedure  calculates  the  maximum  and  minimum  binary  * 
values  of  OD2,  02,  flow,  and  temperature.  The  maximum  and  * 
mimimum  values  are  displayed  along  with  the  number  of  sat-  * 
uration  points  on  each  channel.  * 

* 

Calling  sequence:  » 

M4XMIN  (Sam,Co2max,Co2min,02rmx,02min,'Vmax,\Tnin,Tmax,,Ihiin,  * 

Linel ,Line2,Line3,Line4) ;  * 

* 

* 

Parameters  supplied  by  the  calling  routine.  * 

tall  parameters  are  integers)  * 

* 

Sam  -  A  value  parameter  equal  to  the  number  of  samples        * 

collected.  * 

* 
Linel   -  A  reference  variable  array  containing  the  C02  data.   * 

* 
Line2  -  A  reference  variable  array  containing  the  02  data.    * 

* 

Linel   -  A  reference  variable  array  containing  the  flow  data.   * 

* 

Linel  -  A  reference  variable  array  containing  the  temp.  data.  * 

* 

* 

Parameters  returned  to  the  calling  routine.  * 

* 

Co2max  -  A  reference  parameter  equal  to  the  maximum  002  value.  * 

Co2min  -  A  reference  parameter  equal  to  the  minimum  C02  value.  * 

02min   -  A  reference  parameter  equal  to  the  minimum  02  value.   * 

* 
\max   -  A  reference  parameter  equal  to  the  maximum  flow  value.* 

Mnin   -  A  reference  parameter  equal  to  the  minimum  flow  value.* 

Tmax   -  A  reference  parameter  equal  to  the  maximum  temp  value  * 

* 
Tinin   -  A  reference  parameter  equal  to  the  minimum  temp  value  * 

* 

Procedures  called  by  this  procedure.  * 

None  » 
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•****»■**»*  *************.*****, »**»»»»,  *****  ******************  **  *************** 


} 


VAR     I  ,Num_0D2__equa  1_0 ,Num_CD2_equa  1_4095 , 
Num_02_e  qua  1_0 ,  Num_02_e  qua  1_4095 , 
Num_V_equa  l_0,Num_y_equa  1_4095 , 
Num_T_equal_0,Num_T_equal_4095     : 


INTEGER; 


PROCEDURE  CHECKJSATURATIONC Sample  :  INTEGER; 

VAR  Number_equal_4O95,Number_equal_0  :  INTEGER); 
BEGIN 

IF  Sample  =  0  THEN  Number_equal_0  :=  Number_equal_0  +1; 

IF  Sample  -  4095  THEN  Number_equal_409S  :=  Number_equal_4095  +1; 

END; 


BEGIN   {M4X/MN  ROUTINE} 


«  Linel" 

1] 

-  Linel" 

1] 

=  Line2" 

1 

=  Line2" 

1 

=  Line3~ 

1] 

=  Line3" 

1  , 

»  Line4" 

ll; 

=  Line4" 

1]; 

Co2max 

Co2min 

02max 

02min 

\inax 

Vmin 

Tmax 

Thiin 


Num_C02_equa  1_4095 
Num_C02_equa  l_p 
Num_D2_equa  1_4095 
Num_02_equal_O 
Num_Y_equa  1_4095 
Num_V_equal_0 
Num_T_e  qua  1_4095 
Num_T_equa  L_0 


{»**    INITIALIZE  THE  DATA  *»*} 


{***   STEP  THROUGH  REMAINDER  OF  DATA  TO  FIND  TRUE  M4X/MIN  VALUES 
FOR    I  :  =  1   TO  Sam  DO 
BEGIN 


IF  Co2max<Linel"[ I 
IF  Co2min>Linel"[ I 
IF  02max<Line2"[I] 
IF  02min>Line2"[l] 
IF  \inax<Line3"[l] 
IF  Vmin>Line3"[I] 
IF  Tmax<Line4"[I] 
IF  Tmin>Line4"[l] 


CHECK  FOR  NEW  M4X/MIN  VALUES 


THEN  Co2max 
THEN  Co2min 
THEN  02max 
THEN  02min 
THEN  Vmax 
THEN  \fain 
THEN  Tmax 
THEN  Tmin 


- 

Linel" 

I 

= 

Linel" 

= 

Line2" 

- 

Line2" 

= 

Line3" 

= 

Line3" 

- 

Line4" 

= 

Line4" 

I 

CHE<X_MTURATION(Linel"[I],Num_CO2_equal_4095,Nurn_CO2   equal   0)  ■ 
CHECK_SATURATION(Line2"[I],Num_O2_equal_4095,Num_O2   eTual    o7-    ' 
CHECK_SATURATION(Line3"[l],Num_V_equal_4095.Nuni_V  e^ual    oj- 
CHECK^SATURATION(Line4"  [  I  ]  ,Num_T_equa  1_4095 .Numjrlequa O)) ; 

END;      {Do  Loop} 

{***  DISPLAY  THESE  MWt/MIN  VALUES  ON  THE  CRT  ***} 
WUTELN  ('Signal    Max   Min      #4095  s     #0  s ' ) ; 


WRITELN  ('   002  '  ,Co2max:4, '      \Co2min:4, 

'  ,Num_CD2_equa  1_4095 : 5 , ' 
WRITELN  C     02  \02max:4,'      ',02min:4, 

'  ,Num_02_equa  1_4095 : 5 ,  ' 
WRITELN  C   FLOW         \\max:4,'      ',\4nin:4, 

' , Num_V_equa  1_4095 : 5 , ' 
WUTELN  ('   Temp  '  ,Tmax:4,  '      \Tmin:4, 

'  ,NumJT_equa  1_4095 : 5 , ' 
END;    {MWMIN  END} 
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,  Num_C02_e  qua  1_0 : 5 ) ; 
' ,  Num_02_equa  1_0 : 5 ) ; 
'  ,Num_y_equal_0:5); 
'  ,Nura_J_equal_0:S); 


PROCEDURE  DATAJTORAGE(Sam,Co2max,Co2min,02max, 

02min,Mnax,Mnin,Tmax,Tmin  :  INTEGER; 

VAR  Linel:PTl;  VAR  Line2:PT2;   Line3:PT3;  VAR  Line4:PT4); 

| ********************************* *********************************** ******* 
**************************************************************************** 


Procedure  Name: 

BEEP 

Fi le  Name : 

DAP2 

REVISION 

1.0 

2.0 

DATE 


PROGRAMMER 


JUNE  28,  1984   LOREN  E.  RIBLETT,  JR. 
l-Feb-85       Michael  Masters 


Procedure  discription: 

This  procedure  stores  the  respiratory  data  to  a  disk. 

Call ing  sequence: 

DATA_STORAGE  (Sam,Co2max  ,Co2min,02max  ,02min,\rnax  ,Mnin, 
Tmax,Tmin,Linel,Line2,Line3,Line4); 

Parameters  supplied  by  the  calling  routine, 
(all  parameters  are  integers) 

Sam  -  A  value  parameter  equal  to  the  number  of  samples 
collected. 

Co2max  -  A  value  parameter  equal  to  the  maximum  C02  value. 

Co2min  -  A  value  parameter  equal  to  the  minimum  C02  value. 

02min  -  A  value  parameter  equal  to  the  minimum  02  value. 

A  value  parameter  equal  to  the  maximum  flow  value . 

A  value  parameter  equal  to  the  minimum  flow  value. 

A  value  parameter  equal  to  the  maximum  temp,  value. 

A  value  parameter  equal  to  the  minimum  temp,  value. 
Linel   -  A  reference  variable  array  containing  the  C02  data. 
Line2  -  A  reference  variable  array  containing  the  02  data. 
Linel   -  A  reference  variable  array  containing  the  flow  data. 
Linel   -  A  reference  variable  array  containing  the  temp.  data. 


\rnax 
\fain 
Tmax 
Tmin 
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Parameters  returned  to  the  calling  .routine. 
None 

Procedures  called  by  this  procedure. 

CHECK_IF_PISKJULL  -  Checks  the  selected  mass  storage  medium  to 
see  if  it  contins  noncompacted  ASCII  data. 

SCT_DISK_FULL_FLAG  -  Sets  the  ASCII  disk  to  the  full  state. 


} 


VAR  TEMP,  I  ,Device_pointer 
NSTRIN3 
Disk_stat 
F 

Msi_devices 
File_name 


INTEGER; 

STRING  [4]; 

STRING[5]; 

TEXT; 

ARRAY[  1.  .3]  OF  STRING  [4]; 

STRING  [16]; 


PRCCEEURE  CHE(X_IF_DISKJ:ULL(  VAR  Msi_device  ,Disk_s  tat  :   STRING); 

*  * 

*  Procedure  Name:   Check  if  the  disk  is  full  « 

*  » 

*  File  Name:       EAP2  * 
* 

REVISION               TATE           PROGRAMMER  * 

*       * 

1-0                l-Feb-85       Michael  Masters  * 
* 
* 

*  .Procedure  discription:  » 

This  procedure  checks  to  see  if  the  selected  storage  device    * 

contains  ASCII  data  that  has  not  been  compacted.  * 

*  * 

Calling  sequence:  * 

CHECK_IF_DISK_FULL(Msi_device!Disk_stat);  * 

Parameters  supplied  by  the  calling  routine.  * 

*  * 
Msi_device  -  a  string  value  parameter  indicating  which  * 

mass  storage  device  is  to  be  checked.  * 

*  * 
Parameters  returned  to  the  calling  routine.  * 

Disk__stat  -  a  string  reference  parameter  that  returns  the    * 

status  of  the  disk.  Disk_stat  is  equal  to  'FULL'     * 

if  the  disk  contains  un-compacted  data  and  is  equal   * 

'EMPTY'  if  the  disk  contains  ascii  data.  * 


*"'*M,« » tt)>»itttlt>*li«t<i» >t ttit«t>tl> 

VAR  Disk_stat_file   :       TEXT; 

File_name       :       STRING[17]; 

BEGIN 

File_name  :-Msi_device  +  'DISK^STAT.ASC ; 

RESET  (Disk_stat_file,File_name); 

REAELN  (Disk_stat_file,Disk__stat); 

IF  NOT  (Disk_stat  =  "FULL')  THEN  Disk_s tat  :=  'EMPTY'; 
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END; 

■",:"  '  "  ■      ■■■ } 


PROCHXIRE  SETJISK_FULL_JTAG(  VAR  Msi_device    :   STRING)- 

{»»*«*»**»***»*»*««»*****»***»»»**»«»»M«»*»**»»«»*»»«»«, ,«»»»«»», „,„„»„ 

****««»»*«*«*****»**»*«*****«»*«**»«»«»«»»»»«»»»*»*,,»»,,,»,»„,„„,„ 

* 

Procedure  Name:   Set  the  disk  full  flag  * 

*  * 

*  File  Name:  DAP2  % 

*  REVISION  DATE  PROGRAMMER  * 

* 

*  1-°  l-Feb-85       Michael  Masters  * 

* 
* 

* 

Procedure  discription:  * 

This  procedure  alters  the  disk  status  file  and  sets  the  flas   * 

*  to  FULL.  £   » 
* 

* 

Calling  sequence :  * 

CHECK_IF_rjISK_FULL(Msi_device,Disk_jstat);  * 

« 
Parameters  supplied  by  the  calling  routine.  « 

Msi_device  -  a  string  value  parameter  indicating  -which      * 
mass  storage  device  is  to  be  set  to  the  FULL  state.   * 

* 
Parameters  returned  to  the  calling  routine.  « 

*  None  » 


•  «i.«.>».««....,,„««„„„„„, .,„«,„„„„„„„„ »„„„„„ 


I 


VAR  Disk_stat_file   :       TEXT; 

File_name       :       STRING[l7]; 

BEGIN 

File_name    :=Msi_device  +    'DISKJ5TAT.ASC 
REWRITE  (Disk_stat__file,File_name); 
WRITELN  (Disk_stat_file,'FULL'); 

CLOSE(Di  sk_stat_fi  le  , 'CRUNCH' ) ; 
END; 


BEGIN   {DATASTORAGE} 

{***  Determine  -where    to   store   the    'MONSTER'  ASCII    files. 
Msi_devices[l      :=    '#12:';        (The   hard  disk,   platter  2} 
Msi_devices[2      :=   '#13:';        (The  hard  disk,    platter   3} 

REPEAT'"8     :=  >#7:':     {The  8  ln'  fl°PPy  d'Sk-} 
Line_feed(3); 

^IJELN( 'You  may  store  the  ASCII  files  in  one  of  the'); 
WITELN(  'locations  below.  '); 
\MUTELN('  '); 

WITELNC  1.  The  Hard  disk.  Platter  1.')- 
WRITELNO  2.  The  Hard  disk,  Platter  2.')- 
HRnaNC     3.   The  8  in.,  floppy  disk.'); 
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WRITELNO  '); 

REPEAT 

PRCMPT  ("Which  device  do  you  want  to  use?  '); 

BEEP; 

READLN  (Device_pointer); 

IF  (Device_ipointer   <   1)  OR  (Device_pointer   >   3)     THEN 

BEGIN 

Line_feed(l) ; 

WRITELN  ('You  entered  an  invalid  device  option.'): 

END; 
UNTIL  (Device_pointer>=l)  AND  (Device_pointer<=3); 

CHEOe_IF_DISK_FULL(Msi_devices[Device_pointer],DislLjtat); 
IF  Disk_stat='FULL'   THEN 
BEGIN 

Line_feed(20); 

WITELN  ('The  device  you  selected  contains  ASCII  data.'); 
WRITELN  ('Either  exchange  the  medium  or  select  another'); 
WRITELN  ('device.'); 
END; 
UNTIL  (Disk_stat  =  'EMPTY'); 


{»»*  BBGIN  CHEATING  ASCII  C02  FILE,  FILENAME  -  M3NSTER1  .ASC  *»* 
CREATE  OR  REWRITE  FILE  ON  THE  SPECIFIED  UNIT} 
WRITELN  ('Storing  the  C02  ASCII  data.'); 

File_name  :=  Msi_devices[Device_pointer]  +  'M3NSTER1  .ASC  ; 
REKRlTE(F,File_jiame); 

STRWRITE(NSTRING,l,TEMP,Co2max:4);  {CONVERT  002  MAXIMLM  TO  ASCII} 

WRITELN(F,NSTRING) ;  {WRITE  C02  MAXIMLM  TO  FILE} 

STRVvRITE(NSTRING,l,TEMP,Co2min:4);  {CONVERT  C02  MINIMM  TO  ASCI  1} 

WRITELN(F,NSTRING);  {WRITE  002  MINIMA!  TO  FILE} 

{«*»  mIN  jjQQp  pQR  CONVERTING  AND  STORING  C02  DATA  TO  ASCII   FILE  ***} 
FOR   1:-1  TO  Sam  DO 

BEGIN 

STRWITE(NSTRING,l,TEMP,Liner[I]:4);     {CONVERT  C02  VALUE  TO  ASCI  1 1 
WR1TELN(F,NSTRIN3);     {WRITE  CD2  VALUE  TO  FILE} 
END; 

CLOSE(F,  'CRUNCH');     {CLOSE  AND  COMPACT  ASCII  C02  FILE} 

{***  BEGIN  CREATING  ASCII  02  FILE,  FILENAME  =  M3NSTER2.ASC  ***} 
WRITELN  ('Storing  the  02  ASCII  data.'); 

File_name  :=  Msi_devices[Device_pointer]  +  'M3NSTER2 . ASC '  ; 

RFWRiTE(F,File_name);  {CREATE  OR  REWRITE  FILE  } 

STRVMUTE(NSTRING,l,TEMP,02max:4);  {CONVERT  02  MAXIMM  TO  ASCI  1 } 
WRITELN(F,NSTRING)  ;  {WRITE  02  MAXIMLM  TO  FILE} 

STRWRITE(NSTRIN3,l,TEMP,02min:4);  {CONVERT  02  MINIMLM  TO  ASCI  I } 
WRITELN(F,NSTRING);  {WRITE  02  MINIMM  TO  FILE} 

{**«  mvin  LOOP  FOR  CONVERTING  AND  STORING  02  DATA  TO  ASCII  FILE  ***} 
FOR  I:  =  l  TO  Sam  DO 

BEGIN 

STR\\RITE(NSTRING,T,TEMP,Line2-[l]:4):     {CONVERT  02  VALUE  TO  ASCI  I } 
WRITELN(F,NSTR1NG);      {WRITE  02  VALUE  TO  FILE} 

END; 

CL0SE(F,  'CRUNCH' ) ;     {CLOS&  AND  COMPACT  ASCII  02  FILE} 
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{»*,  BBG]N  CREATING  Ascn   FLCW  FILE,   FILENAME  -  MDNSTER3.ASC  ***} 

WRITELN  ('Storing   the  Flow  ASCII   data.'); 

File_name    :=  Msi_devices[Device_pointer  ]   +    'M3NSTER3.ASC  ; 

RERRITE(F,File_name);  {CREATE  OR  REAR  I TE  FILE   } 

STRWRITE(NSTRIN3,l,TEMP,Vmax:4);  {GONVERT  FLOW  MAXIM_M  TO  ASCI  I } 

WRITELN(F,NSTRING);  {WRITE  FLOW  MAXIMLM  TO  FILE} 

STRWRITE(NSTRING,l,TEMP,Vmin:4);  {CONVERT  FLOWMINlM_M  TO  ASCI  I } 

WRITELN(F,NSTRING);  {WRITE  FLCW  MI NIMLM  TO  FILE} 

{***  MAIN  LOOP  FOR  CONVERTING  AND  STORING  FLOW  LATA  TO  ASCII    FILE  ***} 
FOR   I: =1  TO  Sam  DO 
BEGIN 

STR%RITE(NSTRING,l,TEMP,Line3-[I]:4);         {CONVERT  FLCW  VALUE  TO  ASCI  I } 
WRITELN(F,NSTRING);  {WRITE  FLOW  VALUE  TO  FILE} 

.  END; 

CLOSECF,  'CRUNCH');  {CLOSE  AND  COMPACT  ASCI  I    FLOW  FILE} 

{***   BEGIN  CREATING  ASCII   TEMPERATURE  FILE,    FILENAME  =  M3NSTER4  .ASC  ***} 
WRITELNC 'Storing   the  Temperature  ASCII   data'); 
File_name    :=  Msi_deviceslDevice_pointer  ]    +    'M3NSTER4  .  ASC '  ; 
REWRITE(F,File_name);  {CREATE  OR  REWRITE  FILE   } 

STRWRITE(NSTRING,l,TEMP,Tmax:4);  {CONVERT  TEMPERATURE  MAXIMM  TO  ASCII) 

WRITELN(F,NSTRING);  {WRITE  TEMPERATURE  MAXLVLM  TO  FILE} 

STRWRITE(NSTRING,l,TEMP,Tmin:4);  {CONVERT  TEMPERATURE  MI  NIMLM  TO  ASCII) 

WRITELN(F,NSTRING);  {WRITE  TEMPERATURE  MINTMJW  TO  FILE} 

{***  MAIN  LOOP  FOR  CONVERTING  AND  STORING  FLOW  DATA  TO  ASCII    FILE   ***} 
FOR   I  :  =  1  TO  Sam  DO 

BEGIN 

STRWRITE(NSTRING,l,TEMP,Line4-[I]:4);  {CONVERT  TEMP .  VALUE  TO  ASC!  I } 
WRITELN(F,NSTRING);  {WRITE  TEMP.  VALUE  TO  FILE} 

END; 

CLOSE(F,  'CRUNCH' ) ;  {CLOSE  AND  COMPACT  ASCI  I   TEMP.    FILE} 

{Set    the   disk   is   full    flag.} 
SETJDISK_FULL_JFLAG(Msi_devices[Device_pointer]); 
END;    'DATASTORAGE} 


{***  DECLARE  PROCEDURE  FOR  COLLECTING  FOUR  CHANNELS  OF  DAM  DATA   ***} 
PROCEDURE  DATA_COLLECT(VAR  Sam, S  :  INTEGER; 

VAR  LINE1:PT1;VAR  LINE2:PT2; 
VAR  LINE3:PT3;VAR  LINE4:PT4); 
VAR   I  ,R6, Del, R4:  INTEGER; 

CONST  Chna=15359;Chnb-13311;  {BIT  PATTERNS  NECESSARY  TO  SET31^  CHANNEL 

CONST  Chnc=11263;Chnd=9215;  NULTlPUBl 

CDNST  Mask=4095;  {MASKS  OFF  ALL  BUT  12  DATA  BITS    IN  STATUS  WORD} 

***  MAIN  LOOP  FOR  FOUR  CHANNEL  DATA  ACQUIS ITION 
J 

BEGIN   {DATA_COLLECT} 

WRITELN( 'NOW  COLLECTING  DATA...    please  wait   patiently.'); 

WRITELNC  'Collecting    '  ,Sam:5, '  -s-amples.  This  will    take'  ,Sam  DIV  S:4, '   Sec'); 
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FOR   I  :=1  TO  Sam  DO 
BB3IN 
{ 

***  PUT  S/H  AMPS   IN  TRACKING  NODE  AND  SELECT  CHANNEL  A 
} 

R6:=BINAND(  15360 ,Chna); 
R6:-BINCMP(R6); 
IOCDNTROL(12,3,R6); 
{ 

*»*  GIVE  S/H  AMPS  TIME  TO  TRACK  INPUT  SIGNALS 
} 

DeJ:=15; 
WULE  Del>0  DO 
BEGIN 

Del:=Del-l; 
END; 
{ 

***   SELECT  CHANNEL  A  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 
} 

R6:=BINAND(7168,Chna); 
R6:-BINCMP(R6); 
IOOONTROL(12,3,R6); 
{ 

***   SELECT  CHANNEL  A  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  LOW 
} 

R6:=BINAND(7680,Chna);      { SEND  CONVERT ... } 
R6:=BINCMP(R6);  {...PULSE} 

IO0DNTROL(12,3,R6); 
{ 

***   SELECT  CHANNEL  A  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 
} 

R6:=BINAND(7168,Chna);      {RETURN  TO. .. } 
R6:=BINCMP(R6):  {...NORMAL) 

IOOONTROL(12,3,R6); 
{ 

»»«  wait  FOR  EOC  LINE  TO  GO  LOW 
} 

BIT_HI; 
< 

**«  READ  GPIO  STATUS  REGISTER  AND  KEEP  ONLY  12  BITS 
} 

R4:=IOSTATUS(12,3); 
R4:=R4  DIV  4; 
R4 :  =B  I NANDCMASK ,  R4  )  ; 
Liner[I]:=Ri; 
{ 

***  SELECT  CHANNEL  B  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 
} 

R6 :  =BINAND(  7168  ,Chnb ) ; 
R6:-BINCMP(R6); 
IOCONTROL(12,3,R6); 
{ 

***   SELECT  CHANNEL  B  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  LOW 
} 

R6:-BINAND(7680,Chnb); 
R6:=BINCMP(R6); 
IOCONTROL(12,3,R6); 
{ 

***   SELECT  CHANNEL  B  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 
} 

R6:-BINAND(7168,Oinb); 
R6:=BINCMP(R6); 

IOOONTROL(12,3,R6); 

{ 
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«»»  vait  FOR  BOC  SIGNAL  TO  GO  LOW 

} 

BIT_HI  ; 

{ 

•»»  READ  GPIO  STATUS  REGISTER  AND  KEEP  ONLY  12  BITS 

} 

R4:-I0STATUS(12,3); 

R4:-R4  DIV  4; 

R4:=BINAND(Mask,R4); 

Line2~[I]:=R4; 

{ 

***  SELECT  CHANNEL  C  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

} 

R6:=BINAND(7168,Chnc); 

R6:=BINCMP(R6); 

ICCONTROL(12,3,R6); 

{ 

»**  SELECT  CHANNEL  C  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  LCW 

} 

R6:=BINAND( 7680, Chnc); 

R6:=BINCMP(R6); 

IOCONTROL(12,3,R6); 

{ 

***    SELECT  CHANNEL  C  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

} 

R6:=BINAND(  7168, Chnc); 

R6:=BINCMP(R6); 

IOCONTROL(12,3,R6); 

{ 

*«*  WAIT  FOR  BOC  SIGNAL  TO  GO  LCW 

} 

BIT_HI ; 

{ 

**»  READ  GPIO  STATUS  REGISTER  AND  KEEP  ONLY  12  BITS 

} 

R4:=IOSTATUS(12,3); 

R4:=R4  DIV  4; 

R4:=BINAND(Mask.R4); 

Line3"[I]:=R4; 

{ 

***    SELECT  CHANNEL  D  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

} 

R6  :=BINAND(7168,Chnd) ; 

R6:=BINCMP(R6); 

IOCONTROL(12,3,R6); 

{ 

***  SELECT  CHANNEL  D  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  LCW 

} 

R6 : =BINAND(  7680 ,Chnd ) ; 

R6:=BINCMP(R6); 

IOCONTROL(12,3,R6); 

{ 

***    SELECT  CHANNEL  D  ON  MJLTIPLEXER  AND  CONVERT  SIGNAL  HIGH 

} 

R6  :=BINAND(  7168  .Child)  ; 

R6:=BINCMP(R6); 

IOCONTROL(12,3,R6); 

{ 

»«»  ^aij  por  boc  SIGNAL  TO  GO  LOW 

} 

BIT_HI ; 

{ 

*«»  READ  GPIO  STATUS  REGISTER  AND  KEEP  ONLY  12  BITS 

} 

R4:=IOSTATUS(12,3); 
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R4:=R4  DIV  4; 

R4:=BINAND(Mask,R4); 

Line4~[I]:=R4; 

( 

**»  WUT  FOR  EOC  SIGNAL  TO  GO  HIGH,   THEN  LOW 

} 
BIXJST; 

{ 

**♦  LOOP  BACK  UNTIL  ALL  POINTS  ARE  COLLECTED 
} 

END; 
END;  {DATAJDLLECT} 


{***  BEGIN  MAIN  DATA  ACQUISITION  PROGRAM  (DAP2)-  ***} 

BEGIN  {DAP2  START) 

NBN(Linel);  {CREATE  DYNAMIC  VARIABLE  Line  1 } 
NEW(Line2);  {CREATE  DYNAMIC  VARIABLE  Line2) 
NEW(Line3);  {CREATE  DYNAMIC  VARIABLE  Line 3} 
NBV(Line4);     {CREATE  DYNAMIC  VARIABLE  Line4} 


{***  GO  SET  DAM  CLOCK  AT  DESIRED  FREQUENCY  **»} 
CLKSET(S); 


{*"*  DETERMINE  NUMBER  OF  DATA  POINTS  TO  ACQUIRE  «*«} 
REPEAT 

PRCMPT  (  'ENTER  NUMBER  OF  SAMPLES  [24000  MAX]  :   '  )  ; 

BEEP; 

READLN(Sam); 
UNTIL  (Sam<24001)  AND  (Sam>0); 

{***  GO  COLLECT  THE  FOUR  CHANNELS  WORTH  OF  DATA  *»*} 

HOLDJJP; 

WR1TELN  ('Now  collecting   the   data'); 

DATAJDLLECT  (Sam.S.LINEl ,LINE2,LINE3,LINE4) ; 

BEEP; 

URITELN   (  'DATA  COLLECTION  COMPLETE' ) ; 

{***  DETERMINE  THE  MAX/MIN  VALUES  FOR  EACH  CHANNEL  ***} 
\\RITELN   (  'CALCULATING  THE  MAXIM.M  AND  MINIMA  VALUES  '  )  ; 
MAXMIN(  Sam,Co2max  ,Co2min  ,02max  ,02mi n ,Mnax  ,\fai n  .Thiax  ,Tmi n ) ; 

{***  GO  STORE  THE  FOUR  CHANNELS  OF  DATA  AS  ASCII   FILES   ***} 
HOLDJJP; 
DATA_STORAGE(Sam,Co2max,Co2min,02max,02min, 

\faax,Vmin,Tmax,Tmin,Linel  .Line 2, 
Line3,Line4); 
WRITELN   C    '); 

URITELN   ('**«**   PROGRAM  RUN  COMPLETE   ****»•); 
BEEP; 
END.    {DAP2  END) 
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A6.3  ASCI  CONF:  a  Pascal  Routine  tn  Configure 

-  •  -   the  ASCI  I.  Pat  a  JQLsis.  _Lq_  Accept  Data 


The  Pascal  program  ASCI_CONF  (ASCI  T  £QKF_i  gura  t  i  on)  is  used  to 
configure  the  respiratory  data  disk.  DAP2  checks  the  status  file, 
'DI  SK_STAT.ASC,  to  determine  if  the  data  disk  contains  uncompacted 
ASCII  data.  This  status  file  prevents  DAP2  f rom  overwr i t ing  previously 
collected  data.  The  configuration  program,  ASCI_CONF,  must  be  executed 
to  create  the  status  file  prior  to  using  a  disk  to  store  ASCII  data. 
If  the  file  is  not  present  the  data  acquisition  program,  DAP2,  will 
' crash '  . 

The  ASCLCONF  program  can  also  be  used  to  set  a  disk  to  the  empty 
status  so  that  DAP2  can  store  data  on  it.  This  is  helpful  in  the  event 
data  is  collected  and  stored  but  is  not  desired  to  be  retained. 

A6 . 3 . 1   ASCI  CONF  Procedures 

The  ASCI_CONF  procedure  provides  the  main  control  for  the 
configuration  program.  ASCI_CONF  creates  the  status  file  and  sets  the 
status  to  the  'EMPTY'  state.  ASCI__CONF  calls  the  BEEP  and  Line_feed 
procedures . 

Var iabl es  passed  _m  the  procedures 
None 

Va  r  i  a  b 1 e  s  returned  _b_y_  the  procedures 
None 

Variabl e  def ini  t inns 

Di sk_s ta  t_f i  1  e  -  a  text  variable  associated  with  the  file 

specified  by  File_name. 
Device_pointer  -  an  integer  which  is  used  to  indicate  which  mass 

storage  device  is  to  be  configured. 
File_name  -  a  string  containing  the  name  of  the  file  to  be 

checked  for  the  disk  status.   File_name  is  set  equal  to 

the  variable  Msi_device  concatenated  with  the  name 

'DISK^STAT.ASC  . 
MSI_devices  -  a  string  array  containing  three  elements.  These 

elements  correspond  to  the  three  mass  storage  devices 
which  can  be  used  for  the  storage  of  the  calibration  data. 

Array  element  1  contains  #12  corresponding  to  platter  1  of 
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the  hard  disk,  element  2  contains  #13  corresponding  to 
platter  2  of  the  hard  disk,  and  el  erne  nt  3  contains  #7 
corresponding    to    the    8-inch   disk   drive. 


A6  . 3  .  2   RF.F.P  . 

The  procedure  BEEP  sounds  an  audible  beep.  This  procedure  is 
used  to  gain  the  operator's  attention.  This  is  the  same  procedure  used 
by  CAP2  and  DAP2. 


pas  sed  to  the  . 


None 

Va  r  i  a  b 1 e  s 
None 


by  the  . 


Variable  def in  i  t  i  nns 

No  variables  used. 

A6 . 3 . 3  Line  feed  Procedures 

The  line  feed  procedure,  Line_feed,  sends  a  specified  number  of 

line  feeds  to  the  screen.   This  is  the  same  Line feed  procedure  used  by 

CAP2  and  DAP2. 

Va r  i  a b  1  e s  passed  _Lo_  the  procedures 

I       -  integer,  passed  by  value. 

Va  r  i  a  b 1 e  5  returned  ix  the  procedures 
None 

Variabl e  def in  i  t  i  nns 

I  -  an  integer  variable  containing  the  number  of  line  feeds 
to  send  to  the  screen. 

J  -  an  integer  variable  used  as  a  loop  counter.  1  is 
incremented  for  each  line  feed  which  is  sent  until  it  is 
equal  to  the  number  of  line  feeds  to  be  sent,  I. 
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A6 . 3 . 4     ASCI  I   CTINF  Program  Li  st  ing 

SSYSPROG  ON$ 

SLINES  57$ 

$TABLES$ 

$REF  25$ 

PROGRAM  ASCI  I_CONF(  INPUT, OUTPUT) ; 

I*************************************************************************** 
***************************************************************************4 

*  * 

*  Program  Name:  ASCUDNF  * 

*  * 

*  Department  of  Electrical  and  Computer  Engineering  * 

*  Kansas  State  University  * 

*  * 

*  Source  code  location:   ASCI_CONF  * 
»  * 

*  REVISION  DATE  PROGRAMMER  » 

*       * 

*  1.0  20-Feb-85      Michael  Masters.  * 

*  » 
»  * 

*  Procedure  discription:  * 

This  program  sets  up  disks  so  that  the  respiratory  data  * 

*  collection  program  can  store  ASCII  data  on  them.  The  program  * 
alters,  or  creates  in  the  case  of  new  disks,  the  disk  status  * 
file  so  that  the  disk  can  be  written  to  by  the  data  collection  * 

*  program.  * 

*  * 

*  Calling  sequence:  * 

*  From  the  Main  Conmand  Level  of  the  Pascal  operating  system  * 

*  press  the  R  key  (R  for  RUN)  and  type  ASCI_CONF  in  response  * 
to  the  svstem  prompt  followed  by  the  execute  key.  * 

*  * 

*  Procedures  called  * 

BEEP  -  sounds  an  audible  beep  to  gain  the  attention  of  the  * 

*  operator.  * 

*  * 

Line_feed  -  sends  a  specified  number  of  line  feeds  to  the  * 

*  terminal  * 

*  * 

*  ============================================================  * 

**************************************************************************** 


VAR   Device_pointer 
Disk_stat_f  i  le 
Msi_devices 
File_name 


INTEGER; 

TEXT; 

ARRAY[1..3)  OF  STRING  [4]; 

STRING  [17]  ; 


PROCEDURE  BEEP; 

|*************************************************************************** 

**************************************************************************** 

*  * 

*  Procedure  Name:   BEEP  * 

*  * 

*  File  Name:      ASCI_CONF  * 

*  * 

»       REVISION  DATE  PROGRAMvER  * 

*       * 

*  1.0  22-Sept-84      Michael  Masters.  * 
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Procedure  discription: 

This  procedure  sounds  an  audible  beep  to  the  operator. 


Calling  sequence: 
BEEP; 


Parameters  supplied  by  the  calling  routine. 
None 

Parameters  returned  to  the  calling  routine. 
None 


nmtMnotKHtit.,!.,,,,,,,,,,,,,,, »tt«t«i,,.»(t«.»«.«mi«««M 

BEGIN 

PRCMPT  (CHR(7)); 

END; 


PROCEDURE  Line_feed(I    :       INTEGER); 

""•"" "»»»i*««»»m«t»«(t<»M«»t«M»««mM«> ttttittt 

* 

* 

*  Procedure  Name:   Line  feed  * 

*  File  Name:       ASCI  CONF  * 
REVISION               DATE           PRCGRAWvCR  * 

*  1-0  22-Sept-84     Michael  Masters.  * 

* 

Procedure  discription:  * 

This  procedure  sends  a  specified  number  of  line  feeds  to  the   * 
terminal.  * 

* 

* 

* 

Calling  sequence:  « 

*  Line_feed(I);  « 
* 

*  Parameters  supplied  by  the  calling  routine.  « 

t  I  -  is  an  integer  value  parameter  corresponding  to  the    * 

number  of  line  feeds  to  be  sent  to  the  terminal.      * 

* 
Parameters  returned  to  the  calling  routine.  * 

*  None  » 


*»**«********,»**»*,  itlttlll>»t<>t»»i|t»»lt»l»t: 


**  +  ****  +  ************* 
} 


VAR     J       :       INTEGER; 
BEGIN 

^  nc^Tx,1  TO  1   ro  {Send  the  specified  number  of  line  feeds} 

■PROMPT  (CHR(IO));   {Send  the  line  feed} 
END; 


END; 
{ 


BEGIN  {ASCLCONF} 
Msi_devices[ l] 
Msi_devices[2] 
Msi_devices[3] 
Line_feed(3); 


A6.78 
} 


|#12:';  {The  hard  disk,  platter  2} 
'#13:';  {The  hard  disk,  platter  3} 
'#7:';    {The  8  in.  floppy  disk.} 


VvRITELNt  'ASCI  I_O0NF  wi  1 1  configure  a  disk  so  that  if); 
V»RITELN( 'wi  1 1  except  the  ASCII  data  created  by  the  resp-'); 
WUTELN(  'iratory  data  collection  program  DAP2.  The  mass'); 
WUTELNt  'storage  devices  listed  below  are  valid  locations')- 
WRITELNCfor  storage  of  the  ASCII  respiratory  data.'); 

Line__feed(l)  ; 

WUTELNO     1.   The  Hard  disk.  Platter  1.'); 
VvRITELNC     2.   The  Hard  disk,  Platter  2.'); 
VttlTELNO     3.   The  8  in.  floppy  disk.'); 
VVRITELNC  '); 

REPEAT 


PRCMPT  ("Which  device  do  you  want  to  configure7  ')■ 

BEEP;  £ 

READLN  (Devicejjointer); 

IF  (Device_pointer  <  1)  OR  (Device_po inter  >  3)  THEN 

BEGIN 

"WRITELN  C  '); 

VtRITELN  ('You  entered  an  invalid  device  option.')- 

END; 
UNTIL  (Device_pointer>=l)  AND  (Device_pointer<=3) ; 

{Set  up  the  file  name.} 
File_name  :-  Msi_devices[Device_pointer] ; 
STRAPPEND  ( Fi  1  e__name ,  'DI SK_STAT .ASC' ) ; 

{open  the  status  file.} 
REWRITE  (Disk_stat_file,File_name); 


{write  an  epmty  status  and  close  the  file.} 
TELN  (Disk_stat_file, 'EMPTY' 
CLOSE(Disk_stat_file,  'CRUNCH') 


TOnELN   (Disk_stat_file, 'EMPTY'); 


BEEP; 

Line_feed(3); 

WRITELN  ('  ****  Configuration   complete    ****'); 

END. 

■ 
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APPENDIX  VI  I  .  BASIC  PROGRAM  DOCUMENTATION  AND  I- 1  STING 
This  appendix  gives  the  details  of  the  Basic  programs  used  by  the 
CBRMS.  The  documentation  is  similar  to  that  of  the  Pascal  programs. 
Each  program  is  broken  down  into  descriptions  of  the  individual  Basic 
subroutines  which  make  up  the  program.  The  variables  for  a  particular 
subroutine  will  be  defined  in  that  subroutine's  section.  The  sub- 
routines within  each  program  are  documented  in  alphabetical  order.  The 
variables  within  each  subroutine  are  also  listed  in  alphabetical  order. 

It  should  be  noted  that  subroutine  parameters  can  not  be 
specified  as  value  parameter  or  as  a  reference  parameter,  as  is  the 
case  with  Pascal  procedures.  Therefore,  the  parameter  specifications 
will  not  state  whether  a  parameter  is  passed  by  value  or  by  reference. 
The  manner  inwhich  a  subroutine  is  called  de  t ermines  if  a  value  is 
passed  by  reference  or  value.  The  following  example  points  out  how 
values  are  passed  to  a  subroutine  by  reference  or  by  value. 

CALL  Calc_sig_val((A),(Z),("INSP"),lncr_yol  ,Fo2,Fco2) 
The  first  three  parameters  are  passed  by  value  and  the  last  three  are 
passed  by  reference. 

Two  additional  sections  have  been  added  to  the  documentation  of 
the  Basic  programs,  definition  of  the  COlVfaon  blocks  (A7.1)  and  a 
discussion  of  the  respiratory  variable  array  (Resp^var).  The  OOMmon 
blocks  serve  as  a  link  between  the  AUTOSTART,  CAPCRUNCH,  DAPCRUNCH,  and 
ANALYSIS  programs.  This  link  allows  variables  to  be  passed  between  the 
programs.  Also,  several  COvtnon  blocks  are  used  to  pass  variables  from 
a  calling  routine  to  a  subroutine.  The  COMmon  blocks  and  the  contained 
variables  are  defined  in  Section  A7.1.  The  documentation  for  the 
individual  subroutines  will  include  a  listing  of  the  COMmon  blocks  used 
in  that  subroutine.  The  respiratory  variable  array,  Resp_var,  is  a 
special  array  containing  the  calculated  breath-by-breath  data. 

A7 .  l  Definition  M.  _Ui£_  CCMnon  iLLacJii 

The  COMmon  blocks  used  by  AUTOSTART,  CAPCRUNCH,  DAPCRUNCH,  and 
ANALYSIS  are  defined  here.  The  variables  within  each  COMmon  block  are 
also  defined. 

The  Anal_data  OCMnon  blocks  contain  several  variables  which  are 
used  by  the  subroutines  within  the  ANALYSIS  program. 
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Anal_da tal 

Data_ava i 1 abl e  -  an  integer  variable  used  as  a  Boolean  value 
which  indicates  if  respiratory  data  is  present  in  memory. 

Anal_data2 

False    -    an    integer    used    as    the    constant    Boolean    value    of 

false  . 
True    -    an    integer   used   as    the    constant    Boolean   value   of    true. 

Anal_da ta3 

Co2_prod    -    an    integer   used   as    a    constant    value  which  points    to 

the     computed     rate     of     CO2     production     data     in     the 

respiratory   variable    array. 
Insp_jnin_ven t    -    an    integer    used    as    a    constant    value  which 

points    to    the    computed    inspi ratory  minute    vent i 1  at  ion  da ta 

in    the    respiratory   variable    array. 
O2_cons    -    an    integer    used    as    a    constant    value  which    points    to 

the     computed     rate     of     O2     consumption     data     in     the 

respiratory   variable   array. 
Time_of_brth    -    an    integer    used    as    a    constant    value   which 

points     to     the     beginning     time     of     each     breath     in     the 

respiratory   variable    array. 

Anal_data4 

Expr_jnin_vent    -    an    integer    used    as    a    constant    value  which 

points    to    the    computed    expiratory  minute    ventilation   data 

in    the    respiratory    variable    array. 
Resp_freq    -    an    integer    used    as    a    constant    value   which    points 

to     the     computed     respiratory    frequency    data     in    the 

respiratory   variable    array. 
V_tid_expr    -    an    integer    used    as    a    constant    value  which   points 

to     the     computed     expiratory     tidal     volume    data     in    the 

respiratory   variable    array. 
V_tid_insp    -    an    integer    used    as    a    constant    value  which   points 

to    the    computed    inspiratory    tidal     volume    data     in    the 

respiratory   variable    array. 

Anal_da ta5 

Breath_good  -  an  integer  used  as  a  constant  value  which  points 
to  the  good  or  bad  breath  data  in  the  respiratory  variable 
array . 
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Formfd$  -  a  character  used  as  the  constant  value  of  the  ASCII 

form  feed  character  (12  decimal,  OC  hex). 
Re sp_quot i ent  -  an  integer  used  as  a  constant  value  which 

points  to  the  computed  respiratory  quotient  data  in  the 

respiratory  variable  array. 

Anal_da taSa 

Frc co2 prod  -  an  integer  used  as  a  constant  value  which 

points  to  the  computed  alveolar  C02  production  data  in  the 

respiratory  variable  array. 
Frc_o2_cons  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  alveolar  Oy     consumption  data  in  the 

respiratory  variable  array. 
Vo  1  ume_of_l  ung  -  an  integer  used  as  a  constant  value  which 

points  to  the  computed  lung  volume  data  in  the  respiratory 

variable  array. 

Anal_data6 

Corr flag,-    an    integer    variable   used    as    a   Boolean   value  which 

indicates     if     the     temperature     corrections     are    used     in 

computing    the    respiratory   flow. 
Room_fh2o      -     a      real      variable      equal      to      the      relative 

concentration    of  water    vapor    in    room  air. 
T        -    a    real    variable    equal    to    the    sampling    frequency   used    to 

collect    the    respiratory   data. 

Ana  1 da ta7 

Fh2o_sat  -  a  real  valued,  250  element  array  uted  to  hold  the 

saturated  relative  concentrations  of  water  vapor  in  room 

air  between  20°C  and  45°C. 
Vap   -  a  real  valued,  250  element  array  used  to  hold  the 

saturated  water  vapor  pressure  between  20°C  and  45°C. 

Anal_data8 

Res p_v ar  -  a  real  valued  array  containing  the  calculated 
breath-by-breath  respiratory  variables.  Resp_var  is  a  two 
dimensional  array,  the  first  dimension  is  the  respiratory 
variable  and  the  second  dimension  is  the  breath  number.  A 
mo  re  detailed  description  of  the  respiratory  variable 
array  is  given  in  Section  A7.2  of  this  appendix. 
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Anal_da ta9 

Conment$  -  a  string  variable  containing  a  user  specified 

comment. 
NameS  -  a  string  variable  containing  a  user  specified  subject 
name  . 

The  Cal_data  COMmon  blocks  contain  the  calibration  data  generated 
by  CAP2  and  converted  to  numeric  format  by  CAPCRUNCH. 

Cal_datal 

Cal$    -    a      string     variable      containing     the     name     of     the 

calibration   file. 
DateS     -    a     string     variable     containing     the    date    data    were 

collect ed. 

Cal_data2 

Bin_zero_f 1 ow  -  an  integer  variable  containing  the  sampled 
value    equal    to   zero   flow  through   the   PTM. 

Co2_dc_of f set  -  an  integer  variable  containing  the  sampled  CO, 
value    corresponding    to    room  air. 

02_dc_offset  -  an  integer  variable  containing  the  sampled  02 
value    corresponding    to    the    calibration   gas. 

Cal_data3 

Co2_cal  -  a  real  variable  equal  to  the  002  calibration  factor. 
02_cal  -  a  real  variable  equal  to  the  02  calibration  factor. 

Ca  l_d  a  t  a  4 

Non_c_e_f 1  owe  a  1  -  a  real  variable  containing  the  PTG 
calibration  factor  for  expiratory  flows  de t ermined  wi  thout 
the  use  of  temperature  corrections. 
Non_c_i_f  1  owca  1  -  a  real  variable  containing  the  PTG 
calibration  factor  for  inspiratory  flows  determined 
without    the    use    of    temperature    corrections. 

Cal_data5 

Co  r r_e_f 1  owe  a  1      -     a     real     variable     containing     the     PTG 

calibration    factor    for    expiratory    flows    determined    using 

temperature   corrections. 

Corr_i_f 1 owca 1      -     a     real     variable     containing     the     PTG 

calibration    factor    for    inspiratory    flows    determined    using 
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temperature   corrections. 

Cal_data6 

Ta   -  a  real  variable  equal  to  the  second  order  calibration 

coefficient  for  converting  the  collected  temperature  data 

to  uni  t s  of  °C. 
Tb    -  a  real  variable  equal  to  the  first  order  calibration 

coefficient  for  converting  the  collected  temperature  data 

to  uni  t s  of  °C. 
Tc   -  a  real  variable  equal  to  the  zero  order  calibration 

coefficient  for  converting  the  collected  temperature  data 

to  uni  t s  of  °C. 

Cal_data7 

01   -  a  real  variable  equal  to  the  fractional  concentration  of 

C>2  in  the  calibration  gas. 
Pb   -  a  real  variable  equal  to  the  barometric  pressure  at  the 

time  the  system  was  calibrated. 
Rel_humid  -  a  real  variable  equal  to  the  relative  humidity  at 

the  time  the  system  was  calibrated. 
Room_temp  -  a  real  variable  equal  to  the  room  temperature  at 

the  time  the  system  was  calibrated. 
Time_delay  -  an  integer  variable  equal  to  the  GMS  time  delay 

in  mi  1 1 i -  seconds. 

The  PI ot_resp_da ta  OOMnon  blocks  contain  information  used  by  the 
respiratory  parameter  display  subroutines. 

Plot resp_datal 

N°— b— avg  -  an  integer  variable  equal  to  the  number  of  breath- 
by-breath  values  to  be  averaged. 

Nurn_breaths  -  a  real  variable  equal  to  the  number  of  breaths 
that  were  integrated. 

Oni  t_bad  -  an  integer  variable  used  as  a  Boolean  flagwhich 
indicates  if  the  'bad'  breaths  are  not  to  be  included  in 
the  average. 

Plot_resp_data2 

End_time  -  a  real  variable  equal  to  the  ending  time  of  the 

respiratory  results  display. 
Start_time  -  a  real  variable  equal  to  the  starting  time  of  the 


A7.6 

respiratory  results  display. 
W_period  -  a  real  variable  equal  time  of  the  center  of  the 

window. 
W_jvdth  -  a  real  variable  equal  to  the  time  width  of  the 

window. 

The    Resp_data    COMmon    blocks     contain    the     respiratory    data 
collected    by  DAP2   and   converted    to   numeric    format   by  DAPCRUNCH. 

Resp_da tal 

Linel  -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  CO,  channel,  channel  1  of 

the  DAM. 
Line2  -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  02  channel,  channel  2  of 

the  DAM. 

Resp_data2 

Line3  -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  flow  channel,  channel  2 

of  the  DAM. 
Line4  -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  temperature  channel, 

channel  4  of  the  DAM. 

Resp_data3 

Qnax  -  an  integer  variable  containing  the  maximum  sampled 

datum  point  obtained  from  the  OOj  channel,  Linel. 
Omin  -  an  integer  variable  containing  the  minimum  sampled 

datum  point  obtained  from  the  GO,  channel,  Linel. 
Fmax  -  an  integer  variable  containing  the  maximum  sampled 

datum  point  obtained  from  the  flow  channel,  Line3. 
Fmin   -  an  integer  variable  containing  the  minimum  sampled 

datum  point  obtained  from  the  flow  channel,  Line3. 
Omax   -  an  integer  variable  containing  the  maximum  sampled 

datum  point  obtained  from  the  Oj  channel,  Line2. 
Omin  -  an  integer  variable  containing  the  minimum  sampled 

datum  point  obtained  from  the  O,  channel,  Line2. 
Tmax    -  an  integer  variable  containing  the  max  imum  samp  1  ed 

datum  point  obtained  from  the  temperature  channel,  Line4. 
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Tmin      -    an    integer    variable    containing    the  minimum  sampled 
datum  point    obtained    from   the    temperature    channel,    Line4. 

Resp_da ta4 

No_points  -  an  integer  var i ab 1 e conta ining  the  number  of 
s amp les  collected. 

Resp_da ta5 

CIS  -  a  string  variable  containing  the  name  of  the  C02  data 

file. 
0$   -  a  string  variable  containing  the  name  of  the  Oi  data 

file. 
T$   -  a  string  variable  containing  the  name  of  the  temperature 

data  file. 
V$   -  a  string  variable  containing  the  name  of  the  flow  data 

file. 

A7  . 2      Description  .OJL  the    Respiratory  Variable    Array 

The  respiratory  variable  array,  Resp_var,  contains  the  calculated 
breath-by-breath  respiratory  parameters.  The  respiratory  variable 
array  is  a  two  dimensional  array.  The  first  dimension  of  the 
respiratory  variable  array  is  the  respiratory  parameter  and  the  second 
dimension  is  the  breath  number.  The  array  used  in  this  work  contains 
13  respiratory  parameters  and  can  hold  up  to  500  breaths.  The 
construction  of  the  respiratory  variable  array  is  illustrated  in  Figure 
A7.2.1.  The  pointers  to  the  array  are  shown  on  the  left  of  the  figure 
along  with  the  values  currently  assigned  to  them.  Access  to  a  certain 
parameter  for  a  particular  breath  is  accomplished  by  placing  the 
parameter  of  interest  in  the  variable  dimension  and  the  breath  number 
in  the  breath  dimension.  For  example,  X  can  be  equated  to  the  07 
consumed    for    breath    5    by    the    statement. 

X  =   Resp_var(02_cons  ,5) 

Use  of  this  type  of  array  to  contain  the  calculated  results 
allows  for  easy  addition  of  other  respiratory  parameters.  Additional 
variables  can  be  stored  in  the  array  by  increasing  the  respiratory 
variable  dimension  by  one  and  defining  a  pointer  to  that  variable. 
Also,     it    is    an    easy  matter    to   add   another   dimension    to    the    array. 


T  ime_o  f  _b  r  t  h 

02_cons 

Co2_prod 

Frc_o2_cons 

Frc_co2_prod 

Insp_min_vent 

Expr_min_vent 

V_t  i  d insp 

V_t i  d_e  x  p  r 

Vo  1  ume_o  f 1  ung 

Resp_f  req 
Resp_quot  i  ent 
Breath_good 


Breath  Number 
4 


498   499 
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Figure  A7  . 2 . 1  Construction  of  the  respiratory  variable  array. 


A7  .  3   AUTOST:  jl  Basic  . 


Linking  al 1  Basic  Programs 


The  auto  start  program,  AUTOST,  links  the  other  Basic  proj 
the  CBRMS.  The  operator  can  load  any  other  program  by  pre 
function  key  while  AUTOST  is  executing. 


! r  ams  o  f 
s  s  i  ng  a 


Cnnmnn 


used  by  the  . 


Corrmon 
.BJjiiLk. 


Variables  in  the 
bl  ock 


AnaLdatal  -  Da  ta_avai  labl  e 

Cal_datal  -  Cal$,  DateS 

Cal_data2  -  Bin__zero_f  1  ow,  Co2_dc_of  f  set ,  02_dc_offset 

Cal_data3  -  Co2_cal,  02_cal 

Cal_data4  -  Non_c_e_f  1  owca  1,  Non_c_i_f  1  owca  1 

Cal_data5  -  Co  r  r_e_f  1  owe  a  1  ,  Co  r  r i f  1  owe  a  1 

Cal_data6  -  Ta ,  Tb,  Tc 

Cal_data7  -  01,  Pb ,  Rel_humid,  Room_temp,  Time_delay 

Resp_datal  -  Linel,  Line2 

Resp_data2  -  Line3,  Line4 

Resp_data3  -  Cmax,  Cmin,  Fmax,  Fmin,  Umax,  Omin,  Tmax, 

Resp_data4  -  No_points 
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Resp_data5  -  CIS,  0$,  T$ ,  V$ 


Variable  def in  i tinns 

A      -a  real  variable  used  as  a  pointer  into  the  mass  storage 

,     device  array,  Dev$. 
Dev$    -  a  string  array  of  five  elements  containing  the  five  mass 

storage  devices.   This  array  is  used  to  allow  the  operator 

to  easily  change  the  default  mass  storage  device. 
Fi  1  e_t o_l oad$  -  a  string  variable  which  contains  an  operator 

specified  program  file  name.   This  program  is  loaded  and 

begins  execution. 
I       -  a  real  variable  used  as  a  pointer  into  the  Dev$  array. 
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A7  . 3 . 1  AUTOST  Program  Listing 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 
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************* 


************************************************** 


AUTO- START  ROUTINE 

HP  BASIC  FILENAME:  AUTOST 

Department  of  Electrical  and  Computer  Engineering 
Kansas  State  University 


REVISION 
1.0 


DATE 

JUNE  1,  1984 


PROGRAMvER 
LOREN  E.  RIBLETT 


*********************** 


*  *********  *************  ************* 


PURPOSE 

THIS  ROUTINE  ALLOAS  THE  USER  TO  ACCESS  THE  VARIOUS  HP 
BASIC  ROUTINES  THAT  CURRENTLY  EXIST  FOR  THE  HUMAN 
RESPIRATORY  RESEARCH  STUDIES. 

ROUTINE(S)  CALLED  BY  THIS  ROUTINE 

CAPCRUNCH  -  CALIBRATION  ASCII  TO  BINARY  FILE  CONVERSION 
DAPCRUNCH  -  DAM  DATA  ASCII  TO  BINARY  FILE  CONVERSION 
ANALYSIS  -  BREATH-BY-BREATH  ANALYSIS  ROUTINE 
STOREHR  -  Stores  the  heart  rate  values  in  a  format 
compatible  with  Sprick's  PLOT  program. 


************************ ******** 


************************************* 


NOTE  1:  Because  this  is  an  AUTOST  routine,  it  should  appear 

only  on  the  5.25"  floppy  used  in  the  mass  storage  unit 
" : INTERNAL" . 

NOTE  2:  The  program  is  initiated  by  placing  the  floppy  in  the 
mentioned  drive  and  applying  power  to  the  HP9826. 

NOTE  3:  This  program  is  recalled  upon  completion  of  the  called 
routines . 

********************************************************************** 

COM  /Resp_datal/  INTEGER  LinelCl :240OO) ,Line2(l : 24000) 

COM  /Resp_data2/   INTEGER  Line3(l :24000) ,Line4(l :240O0) 

COM  /Resp_data3/   INTEGER  Crmn,Crnax,Otnin,Cmax,Fmin,Fmax,Tmin,Tmax 

COM  /Resp_data4/  INTEGER  No_points 

COM  /Resp_data5/  Cl$[  10]  ,0$[  10]  ,V$[  10]  ,T$[10] 

COM  /Cal_datal/  Cal$[ 10]  ,Date$[25] 

COM  /Cal_data2/  INTEGER  Co2_dc_of  f  set  ,02_dc_of  f  se  t  ,Bin_zero_f  low.S 

COM  /Cal_data3/  REAL  Co2_cal  ,02_cal 

COM  /Cal_data4/  REAL  Non_c_i_f  lowcal  ,Non_c_e_f  lowcal 

COM  /Cal_data5/  REAL  Cor r_i_f  lowcal  ,Corr_e_f  lowcal 

COM  /Cal_data6/  REAL  Ta.Tb.Tc 

COM  /Cal_data7/  REAL  Time_delay  ,01  ,Pb,Re  l_humid,Room_temp 

COM  /Anal_datal/  INTEGER  Data_avai lable 

I 

!***  DECLARATIONS 
i 

DIM  Dev$(5)[l5]  ,Fi  le_to_load$[25] 
!***  ASSIGN  SPECIAL  FUNCTION  KEYS 
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630   ON  KEY  0  LABEL  "CCRUNCH"  GOTO  Ccrunch 

640   ON  KEY  1  LABEL  "DCRUNCH"  GOTO  Dcrunch 

650   ON  KEY  2  LABEL  "ANALYSIS"  GOTO  Analysis 

660   ON  KEY  4  LABEL  "STOREHR"  GOTO  Heartrate 

670   ON  KEY  5  LABEL  "New  MSI"  GOTO  Ms  i 

680   ON  KEY  6  LABEL  "  LOAD"  GOTO  Load 

690   ON  KEY  7  LABEL  "  CAT"  GOTO  Cat 

700   ON  KEY  9  LABEL  "  EXIT"  GOTO  Exit 

710   GOTO  630 

720  ! 

730  ! ***  CALL  TO  DAPCRUNCH 

740  ! 

750  Dcrunch:! 

760   OFF  KEY 

770   LOAD  "DAPCRUNCH:  I NTERNAL"  ,  1 

780  ! 

790  !***  CALL  TO  CAPCRUNCH 

800  ! 

810  Ccrunch:! 

820   OFF  KEY 

830   LOAD  "CAPCRUNCH:  INTERNAL",  1 

840  ! 

850  !  ***  CALL  TO  ANALYSIS 

860  ! 

870  Analysis:! 

880   OFF  KEY 

890   LOAD  "ANALYSIS:  INTERNAL" ,1 

900  Heartrate:  ! 

910  ! 

920  !      Store  heart  rate  routine 

930  ! 

940   OFF  KEY 

950   LOAD  "STOREHR:  INTERNAL",  1 

960  ! 

970  !***  CATALOG  REQUEST 

980  ! 

990  Cat:! 

1000  OFF  KEY 

1010  CAT 

1020  GOTO  630 

1030! 

1040!"**  NEWIMftSS  STORAGE  REQUEST 

1050! 

1060  Msi:! 

1070  OFF  KEY 

1080  PRINT  CHR$(  12) 

1090  PRINT  "Select  the  device  you  wish  to  use" 


1100  Dev$(l) 

1110  Dev$(2) 

1120  DevS(3) 

1130  Dev$(4) 

1140  Dev$(5) 


INTERNAL" 
HP9895, 700,0" 
HP9895, 702,1" 
HP9895,702,2" 
HP9895,702,3" 


1150  FOR  1=1  TO  5 

1160     PRINT  USING  "3X.D.29A, ISA"; I , "  -is  the  mass  storage  device  ",Dev$(I) 

1170  NEXT  I  " 

1180  INPUT  "ENTER  the  desired  device's  corresponding  number. ",A 

1190  IF  A<1  OR  A>5  THEN  Msi 

1200  M\SS  STORAGE  IS  Dev$(A) 

1210  PRINT  CHR$(12) 

1220  GOTO  630 

1230! 

1240!***  LOAD  PROGRAM  REQUEST 

1250! 

1260  Load:! 

1270  OFF  KEY 
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1280     BEEP 

1290     LINPUT  "ENTER  THE  NAME  OF  THE  PROGRAM  YOU  WISH  TO  LOAD"  ,Fi  le_to_load$ 

1300     LOUD  File_to_Joad$ 

1310  GOTO  630 

1320! 

1330!***  PROGRAM  TERMINATION  REQUEST 

1340! 

1350  Exit:! 

1360  OFF  KEY 

1370  END 
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A7.4   CAPCRUNCH:  a  Basic  Prog  ram  Wh  i  ch  Compacts  the  ASCI  T 

Data  Cnl  1  ected  jjj  CAE2.  _LO_  Nume  r  i  c  Format 

CAPCRUNCH  performs  a  conversion  operation  on  the  calibration  data 
generated  by  the  Pascal  program  CAP2.  CAP2  stores  the  calibration  data 
in  an  ASCII  file.  In  order  to  minimize  the  required  disk  space  and 
file  access  time,  CAPCRUNCH  c o n v e r t s  this  ASCII  file  to  the  numeric 
format  of  the  Basic  operating  system. 

A7.4.1   The  Main  Routine  of  CAPCRUNCH 

The  main  routine  of  CAPCRUNCH  performs  all  of  the  data  conversion 
operations.  The  main  routine  calls  the  Fi 1 e_l  ocat i ons  subroutine  to 
determine  the  storage  locations  of  the  ASCII  format  calibration  data 
file  and  where  the  numeric  format  calibration  data  is  to  be  stored. 

Comnnn  Bl ocks  Used  by  the  Subrout  ine 

Comnon        Variables  in  the 
Block  block 

Anal_datal  -  Data_avai lable 

Cal_datal  -  Cal$,  DateS 

Cal_data2  -  Bin_zero_f  1  ow,  Co2_dc_of f se t ,  02_dc_offset 

Cal_data3  -  Co2_ca,  02_cal 

Cal_data4  -  Non_c_e_f  1  owca  1,  Non_c_i_f  1  owca  1 

Cal_dataS  -  Co  r  r_e_f  1  owe  a  1  ,  Corr_i_f  lowcal 

Cal_data6  -  Ta ,  Tb,  Tc 

Cal_data7  -  01,  Pb,  Rel_humid,  Room_temp,  Time_delay 

Resp_datal  -  Linel,  Line2 

Resp_data2  -  Line3,  Line4 

Resp_data3  -  Cmax,  Cmin,  Fmax,  Fmin,  Gaax,  Omin,  Tmax, 

Resp_data4  -  No_points 

Resp_data5  -  CIS,  OS,  T$ ,  V$ 

Variable  def ini  t ions 

Ascii_locS  -  a  string  variable  equal  to  the  operator  specified 
storage  location  of  the  ASCII  format  calibration  data. 

Bin_zero_f  1  ow  -  an  integer  variable  containing  the  sampled  value 
equal  to  zero  flow  through  the  PTM. 

Bin__zero__f  low$  -  a  string  variable  equal  to  the  ASCII  representa- 
tion of  Bin_zero_f low  read  from  the  calibration  file. 

CalS    -  a  string  variable  containing  the  name  of  the  calibration 
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file. 
Char length    -    a    real    variable    containing    the    number    of    total 

number    of    characters    to   be    stored    in   the   numeric    format 

ca 1 ibrat  ion    file. 
Co2_cal    -    a    real    variable   equal    to    the  OO2   calibration   factor. 
Co2_cal$    -    a   string   variable   equal    to    the  ASCII    representation  of 

Co2_cal    read    from  the   calibration   file. 
Co2_dc_of  f  se  t    -    an    integer    variable   containing   the    sampled  CO2 

value    corresponding    to    room  air. 
Co2 dc offset$     -     a     string     variable     equal      to     the     ASCII 

representation    of    Co2_dc_of f se t    read    from   the    calibration 

file. 
Co  r  r_e_f  1  owe  a  1     -    a    real    variable    containing    the    PTC   calibration 

factor    for    expiratory    flows   determined   using    temperature 

correct  ions  . 
Co r r_e_f 1  owe  a  1  $     -     a     string     variable     equal      to     the    ASCII 

representation   of  Co r r_e_f  1  owe  a  1    read   from  the   calibration 

file. 
Co  r  r_i_f  1  owe  a  1     -    a    real    variable    containing    the    PTC   calibration 

factor    for    inspiratory    flows    determined   using    temperature 

correct  ions  . 
Cor r_i_f 1  owe  a  1  $     -     a     string     variable     equal     to     the    ASCII 

representation   of  Co r  r i f  1  owe  a  1    read   from  the   calibration 

file. 
Da  t  a__a  va  i  1  ab  1  e    -    an    integer    variable    used   as   a   Boolean   value 

which    indicates    if    respiratory   data    is    present    in  memory. 
Data_loc$     -     a     string     variable     set     equal      to     the     device 

specification    of    the    8-inch    disk   drive    (  :HP9895, 700,0) 

which  will    be   used    to   store    the   numeric   format   calibration 

data. 
DateS      -    a     string     variable     containing     the    date    data    were 

col lected. 
FormfdS    -    a    single    character    string   used   as    the   constant   value   of 

the   ASCII    form  feed    character    (12   decimal,    OC  hex). 
Nl$  -    a    string    variable    equal     to    the    name    of    the    calibration 

file    created    by   CAP2    as     it    appears    to    the    Basic    operating 

system. 
No_integers    -    a    real       variable   equal    to   the   number   of    integer 
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values    to   be    stored    in   the   calibration   file. 
No_reals    -    a    real    variable    equal    to    the   number   of   real    values    to 

be    stored    in    the    calibration    file. 
Non_c_e flowcal    -    a    real    variable    containing    the    PTC  calibration 

factor    for    expiratory    flows    determined   without    the    use    of 

temperature    corrections. 
Non_c_e_f  1  owe  a  1  $     -     a     string     variable     equal     to    the    ASCII 

representation     of     Non c_e flowcal      read      from     the 

ca 1 ibrat ion   file. 
Non_c_i flowcal    -      a    real    variable   containing   the  PTC  calibration 

factor    for    inspiratory   flows    determined  without    the   use   of 

temperature    corrections. 
Non_c_i_f  1  owe  a  1  $     -     a     string     variable     equal     to    the    ASCII 

representation     of     Non_c i flowcal      read      from     the 

ca 1 ibrat  ion   file. 
02_cal    -    a    real    variable   equal    to    the  Oy   calibration   factor. 
02_cal$    -    a    string    variable    equal    to    the  ASCII    representation   of 

02_cal    read    from  the    calibration   file. 
02_dc_offset    -    an    integer    variable    containing    the    sampled  CK 

value    corresponding    to    the   calibration  gas. 
02_d  c_of  f  s  e  t  $      -     a      string     variable      equal      to      the     ASCII 

representation    of   02_dc_offset    read   from  the   calibration 

file. 
01  -    a   real    variable   equal    to    the   fractional    concentration  of 

CU    in    the    calibration   gas. 
01$  -    a    string    variable    equal     to    the    ASCII     representation    of 

01    read    from   the   calibration   file. 
Pb  -    a    real    variable    equal    to    the    barometric    pressure    at    the 

time    the    system  was    calibrated. 
Pb$  -    a    string    variable    equal     to    the    ASCII     representation    of 

Pb   read    from   the    calibration    file. 
Rel_humid    -    a   real    variable   equal    to    the   relative   humidity  at   the 

time    the    system  was    calibrated. 
Rel_humid$    -    a    string    variable    equal    to    the   ASCII    representation 

of   Rel_humid    read    from  the    calibration   file. 
Room_temp    -    a    real    variable    equal    to    the    room-  temperature    at    the 

time    the    systemwas    calibrated. 
Roorn_temp$    -    a    string    variable    equal     to    the  ASCII    representation 
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of  Room_temp  read  from  the  calibration  file. 
S       -  a  real  variable  equal  to  the  sampling  frequency  used  by 

CAP2. 
s$      -  a  string  variable  equal  to  the  ASCII  representation  of  S 

read  from  the  calibration  file. 
Ta      -  a  real  variable  equal  to  the  second  order  calibration 

coefficient  for  converting  the  collected  temperature  data 

to  uni  ts  of  °C. 
Ta$     -  a  string  variable  equal  to  the  ASCII  representation  of 

Ta  read  from  the  calibration  file. 
Tb      -  a  real  variable  equal  to  the  first  order  calibration 

coefficient  for  converting  the  collected  temperature  data 

to  uni  t  s  of  °C. 
Tb$     "  a  string  variable  equal  to  the  ASCII  representation  of 

Tb  read  from  the  calibration  file. 
Tc      "  a  real  variable  equal  to  the  zero  order  calibration 

coefficient  for  converting  the  collected  temperature  data 

to  uni  t s  of  °C. 
Tc*     -  a  string  variable  equal  to  the  ASCII  representation  of 

Tc  read  from  the  calibration  file. 
Time_delay  -  an  integer  variable  equal  to  the  GMS  time  delay  in 

mi  1 1 i -  seconds  . 
Time_delay$  -  a  string  variable  equal  to  the  ASCII  representation 

of  Time_delay  read  from  the  calibration  file. 
True    -  an  integer  used  as  the  constant  Boolean  value  of  true. 

A7 . 4 . 2   File  locations  Subroutine 

The  Fi 1  e_l ocat ions  subroutine  prompts  the  operator  for  the 
storage  location  of  the  ASCII  format  calibration  data.  The  file  loca- 
tion where  the  numeric  format  calibration  data  is  to  be  stored  is 
always  set  equal  to  the  8-inch  disk  drive  ( :HP9895, 700,0).  This  could 
be  easily  changed  to  prompt  the  operator  for  a  specific  storage  loca- 
tion.  This  subroutine  is  also  used  by  DAPCRUNCH. 

Coirmon  Blocks  Used  _b_y_  the  Subroutine 
None 

Variables  passed  _La  the  procedures 
None 
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.     Variables    returned    by    the    procedures 
Ascii_locS    -    string. 
Da  t  a_l oc$-string.  • 

Variable    def ini  t  i  nns 

A  -    a    real    variable   used    as    a    pointer    into    the   Msi_devices$ 

array. 

Ascii loc$    -    a    string    variable    equal    to    the   operator   specified 

storage    location   of    the   ASCII    format    calibration   data. 

Data_)oc$  -  a  string  variable  set  equal  to  the  8-inch  disk  drive 
device  specification  ( :HP9895,700,0)  which  will  be  used  to 
store    the    numeric    format    calibration   data. 

M  s  i d  evicesS      -     a      string     array     containing     the     device 

specifications  of  the  disk  drives  containing  the  data. 
Element  1  specifies  platter  1  of_  the  hard  disk 
(:HP9895,702,1),  element  2  specifies  platter  2  of  the  hard 
disk  ( :HP9895,702,2),  and  element  3  specifies  the  8-inch 
disk   drive    ( :HP9895, 700,0). 
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A7.4.3  CAPCRUNCH  Program  Listing 
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CALIBRATION  FILE,  ASCII  TO  BINARY  CONVERSION  ROUTINE 

HP  BASIC  FILENAME:  CAPCRUNCH 

Department  of  Electrical  and  Computer  Engineering 
Kansas  State  University. 


REVISION 

1.0 

1.1 


DATE 

JUNE  1,  1984 
OCT  1,  1985 


PROGRAMvER 

LOREN  E.  RIBLETT 
Michael  Masters 


*********************************************************** 


*********** 


PURPOSE 

THIS  ROUTINE  CONVERTS  THE  CALIBRATION  FILE  CREATED  BY 
THE  PASCAL  ROUTINE  "CAP. CODE"  FROM  ASCI  I  TO  BINARY, 
ALLOWING  FOR  M3RE  EFFICIENT  DATA  STORAGE. 

ROUriNE(S)  CALLED  BY  THIS  ROUTINE 

AUTOST  -  USER  PROGRAM  ACCESS  ROUTINE 


****************************************************** 


************ 


NOTE  1:  Converted  files  (binary)  will  be  stored  on  the  8"  floppy 
":HP9895, 700,0". 

NOTE  3:  ASCII  files  are  purged  following  the  conversion  process. 

NOTE  4:  AUTOST  is  called  following  completion  of  CAPCRUNCH. 
****************** ****************************,»»****,»»,**, **»»»»,» 
COM  /Resp_datal/  INTEGER  Linel(l:24000) ,Line2(l :240OO) 
COM  /Resp_data2/  INTEGER  Line3(l :24000) ,Line4(l :24000) 
CDM  /Resp_data3/  INTEGER  Cmin,CbMx,Cmin,Ch»x,Fmin,Fmax, Train, Tmax 
CDM  /Resp_data4/  INTEGER  No_points 
COM  /Resp_data5/  C1S[10]  ,O$[l0]  ,V$[10] ,T$[10] 
COM  /Cal_datal/  Cal$[lO] ,Date$[25] 

COM  /Cal_data2/  INTEGER  Co2_dc_of  f  set  ,02_dc__of  f  set  ,Bin_zero_f  low.S 
COM  /Cal_data3/  REAL  Co2_cal ,02_cal 
COM  /Cal_data4/  REAL  Non_c_i_f  lowcal  ,Non_c_e_J  lowcal 
COM  /Cal_data5/  REAL  Cor r_i_f  lowcal  ,Corr_e_f  lowcal 
COM  /Cal_data6/  REAL  Ta.Tb.Tc 

COM  /Cal_data7/  REAL  Time_de  lay  ,01  ,Pb,Rel_humid,Roarn_temp 
COM  /Anal_datal/  INTEGER  Data_avai lable 
True-(1=1) 
Formfd$=CHR$(12) 


***  ASSIGN  SPECIAL  FUNCTION  KEYS 

ON  KEY  0  LABEL  "CCRUNCH"  GOTO  660 
CM  KEY  9  LABEL  "  EXIT"  GOTO  Done 
GOTO  580 
! 

i 


GET  FILE  NAME  TO  CRUNCH 


ALTER  FILE  NAME  TO  REFLECT  PASCAL  TO  BASIC  NAME  CHANGES 


A7.19 

630  ! 

640  !***  MAKE  DECLARATIONS 

650  ! 

660  OFF  KEY 

670  DIMCo2_dc_offset$[4],02_dc_flffset$[4],Bin_jzero_Jlow$[4] 

680  DIM  Co2_cal$[2S],02_cal$[25],Insp_flow_cal$[2S] 

690  DIM  Expr_flow_cal$[2S]  ,Time_delay$[25]  ,S$[4] 

700  DIM  01$[25],Ta$[25],Tb$[25],Tc$[2S] 

710  DIM  N$[lO],Nl$[lO],Data_loc$[l3],Ascii_loc$[l3] 

720 

730 

740 

750 

760 

770  BEEP 

780  INPUT  "ENTER  NAME  OF  CALIBRATION  FILE  TO  CRUNCH:   ",Cal$ 

790  File_locations(Asci  i_loc$,Data_loc$) 

800  ! 

810  IF  Ascii_loc$=Data_Joc$  THEN 

820      PRINT  TABXY(l,18);"Insert  the  ASCII  data  disk." 

830      PRINT  "Press  CONTINUE  when  you  are  ready  to  proceed." 

840      PAUSE 

850      PRINT  FormfdS 

860  END  IF 

870 

880 

890 

900 

910  Nl$=Cal$&"A" 

920  WHILE  LEN(N1$)<10 

930      N1$=N1$&"_" 

940  END  WHILE 

950  ! 

960  ! 

970  ! 

980  !***  READ  IN  ASCI  I  VALUES  FROM  CALIBRATION  FILE 

990  ! 

1000  ASSIGN  aPathl  TO  Nl$&Asci  i_loc$ 

1010  ENTER  @Pathl;Co2_dc_Dffset$,02_dc_f>ffset$ 

1020  ENTER  aPathl ;Bin_zero_f low$ ,Co2_cal$ 

1030  ENTER  aPathl  ;02_cal$  ,Non_c_i_f  lowcalS 

1040  ENTER  aPathl  ;Non_c_e_f  lowcal$,Time_delay$  ,S$ 

1050  ENTER  aPathl ;01$ ,Ta$ ,Tb$ ,Tc$ ,Date$ 

1060  ENTER  aPathl  ;Corr_i_f  lowcalS  ,Corr_e_f  lowcalS 

1070  ENTER  aPathl  ;Pb$ , Re l_humid$  ,Roorn_tenroS 

1080  ASSIGN  aPathl  TO  * 

1090  ! 

1100  ! 

1110  ! 

1120  ! 

U30  !  Convert  the  ASCII  calibration  values  to  number  values. 

1140  ! 

1150  Co2_dc_offset=VAL(Co2_dc_offset$) 

1160  02_dc_offset>VAL(02_dc_offset$) 

1170  Bin__zero_flow=VAL(Bin_zero_flow$) 

1180  Co2_cal-VAL(Co2_cal$) 

1190  O2_cal=VAL(02_cal$) 

1200  Non_c_i_flowcal=VAL(Non_c_i_jflcr«cal$) 

1210  Nou_c_e_flowcal=VAL(Non_c_e_f  lowcalS) 

1220  Time_delay=VAL(Time_delay$) 

1230  S-VAL(SS) 

1240  01-VAL(01$) 

1250  Ta=VAL(Ta$) 

1260  Tb=VAL(Tb$) 

1270  Tc=VAL(Tc$) 

■ 
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1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
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1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
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1480 
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1540 
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1590 
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1610 
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1630 
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1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900! 
1910! 
1920! 


Co  r  r_i_f  1  owca  1  =VAL(Co  r  r_i_f  1  owe  a  1  $ ) 

Corr_e_J'lowcal=VAL(Corr_e_flawcal$) 

Pb=VAL(Pb$ ) 

Re  l_humi  d=VAL(Re  L_humi  d$ ) 

Room_t  emp=VAL(Room_t  emp$ ) 


!***  CREATE  BINARY  FILE  ON  THE  DMA  DISK 
j 

IF  Data_loc$=Ascii_loc$  THEN 

PRINT  TABXY( 1,18); "Remove  the  ASCII  data  disk  and  put  in" 

PRINT  "the  BINARY  data  disk." 

PRINT 

PRINT  "Press  CONTINUE  when  you  are  ready  to  proceed." 

BEEP 

PAUSE 

PRINT  FormfdS 
END  IF 

No__integers=4   !The  number  of  calibration  factors  which  are  integers. 
!The  number  of  calibration  factors  which  are  reals. 
!The  total  length  of  the  char  strngs  in  the  cal  factors 


No_reals=13 
Char_length=25 


Create  the  file 


CREATE  BDAT  Cal$&Data_JocS,l  ,2*No_integers+8*No_reals+Char_length 

!***  \*RITE  BINARY  CALIBRATION  CONSTANTS  TO  FILE 
I 

ASSIGN  aPathl  TO  Cal$&Data_loc$ 


OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 
OUTPUT  aPathl 


Co2_dc_pffset 

O2_dc_offset 

Bin_zero_f low 

Co2_cal 

02_cal 

Non_c_i_f  1  owe  a  1 

Non_c_e_f  1  owe  a  1 

Time_delay 

S,01 

Ta.Tb.Tc 

DateS 

Corr_i f  lowcal 

Co  r  r_e_f  1  owe  a  1 

Pb  ,Re  l_humi  d  ,Room_t  emp 


ASSIGN  aPathl  TO 


!***  DELETE  OLD  ASCII  CALIBRATION  FILE 

| 

IF  Data_loc$-Ascii_loc$  THEN 

PRINT  TABXY( 1,1 8); "Remove  the  BINARY  data  disk  and  put  in" 

PRINT  "the  ASCII  data  disk." 

PRINT 

PRINT  "Press  CONTINUE  when  you  are  ready  to  proceed." 

BEEP 

PAUSE 

PRINT  FormfdS 
END  IF 

PURGE  Nl$&Ascii_loc$ 
PRINT  "CALIBRATION  FILE  COMPACTION  COMPLETE." 

•••  RETURN  TO  AUTOST 
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1930  Data_available=True 

1940  Done :OFF  KEY 

1950  M\SS  STORAGE  IS  ":  INTERNAL " 

1960  LOAD  "AUTOST'M 

1970  END 

1980  SIB  File_Jocat  ions(Ascii_loc$,Data_loc$) 

1990  ! 

2000  DIMMsi_devices$(l:3)[l3] 

2010  Ms  i_devices$(l)=":HP9895, 702,1" 

2020  Msi_devices$(2)=":HP989S,702,2" 

2030  Msi_devices$(3)=":HP9895,700,0" 

2040  Formfd$=CHR$(12) 

2050  PRINT  FormfdS 

2060  PRINT 

2070  PRINT  "Mass  Storage  devices" 

2080  PRINT  "    1.   The  hard  disk,  platter  1" 

2090  PRINT  "    2.   The  hard  disk,  platter  2" 

2100  PRINT  "    3.   The  8  inch  floppy  disk." 

2110  BEEP 

2120  INPUT  "Which  storage  location  contains  the  ASCII  data",A 

2130     Ascii loc$=Msi_devices$(A) 

2140  Data_Joc$=Msi_devices$(3) 

2150  PRINT  FormfdS 

2160  SUBEND 
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A7  .  5   DAPCRUNCH :  jl  Basic  Program  Which  Compacts  _LhjL  ASCII 

DaJA  Col  1  ec  t  ed  _b_y_  DAE2.  _Lo_  Nume  r  i  c  Fo  rma  t 

DAPCRUNCH  performs  a  conversion  operation  on  the  respiratory  data 
collected  by  the  Pascal  program  DAP2.  DAP2  stores  the  data  in  four 
ASCII  files.  In  order  to  minimize  the  disk  space  and  file  access  time, 
DAPCRUNCH  converts  these  ASCII  files  to  the  numeric  format  of  the  Basic 
operating  system. 

A7  .  5  . 1   The  MaJjL  Routine  of  DAPCRUNCH 

The  main  routine  of  DAPCRUNCH  performs  the  main  control  of  the 
program.  The  main  routine  calls  the  Fi  1  e_l  ocat  ions,  Rd_and_crunch,  and 
Write_data  subroutines.  Fi  1  e_l  oca  t  i  ons  prompts  the  operator  for  the 
mass  storage  device  containing  the  ASCII  data.  Rd_and_c  runch  reads 
each  ASCII  file  and  converts  the  data  from  the  ASCII  format  to  the 
numeric  format.   "Write data  writes  the  numeric  format  data  to  disk. 

Cnmrinn  Bl  ocks  Used  by  the  Subrout  i  ne 

Common        Variables  in  the 
£Lq_cJs.  block 

Anal_datal  -  Da ta_avai lable 

Cal_datal  -  Cal$,  Date$ 

Cal_data2  -  Bin_zero_f  1  ow,  Co2_dc_of f se t ,  02_dc_offset 

Cal_data3  -  Co2_ca,  02_cal 

Cal_data4  -  Non_c_e flowcal,  Non__c_i flowcal 

Ca  l_d  a  t  a  5  -  Co  r  r_e_f  1  owe  a  1  ,  Co  r  r i f  1  owe  a  1 

Cal_data6  -  Ta ,  Tb,  Tc 

Cal_data7  -  01,  Pb ,  Rel_humid,  Room_temp,  Time_delay 

Resp_datal  -  Linel,  Line2 

Resp_data2  -  Line3,  Line4 

Resp_data3  -  Cmax,  Cmin,  Fmax,  Fmin,  Omax,  Qnin,  Tmax, 

Resp_data4  -  No_j>oints 

Resp_data5  -  CIS,  0$,  T$ ,  V$ 

Va  r  i  a  b 1 e  definitions 

Ascii_loc$  -  a  string  variable  equal  to  the  operator  specified 

storage  location  of  the  ASCII  format  data. 
CIS     -  a  string  variable  containing  the  name  of  the  C02  data 

file. 
Cmax    -  an  integer  variable  containing  the  maximum  sampled  datum 
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point  obtained  from  the  CO2  channel,  Linel. 
Onin    -  an  integer  variable  containing  the  minimum  sampled  datum 

point  obtained  from  the  CC>2  channel,  Linel. 
Data available  -  an  integer  variable  used  as  a  Boolean  value 

which  indicates  if  respiratory  data  is  present  in  memory. 
Data loc$  -  a  string  variable  set  equal  to  the  device 

specification  of  the  8-inch  disk  drive  ( :HP9895 ,700,0) 

which  will  be  used  to  store  the  numeric  format  data. 
F  i  1  e_nm$  -  a  string  variable  wh  ich  is  not  used  within  the  ma  in 

routine  of  DAPCRUNCH.   The  declaration  of  File_nm$  within 

the  main  procedure  (line  630)  may  be  deleted.   The 

variable  is  used  within  the  Rd_and_crunch  subroutine. 
Fmax    -  an  integer  variable  containing  the  maximum  sampled  datum 

point  obtained  from  the  flow  channel,  Line3. 
Fmin    -  an  integer  variable  containing  the  minimum  sampled  datum 

point  obtained  from  the  flow  channel,  Line3. 
FormfdS  -  a  single  character  string  used  as  the  constant  value  of 

the  ASCII  form  feed  character  (12  decimal,  OC  hex). 
Linel   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  CC>2  channel,  channel  1, 

of  the  DAM. 
Line2   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  CK  channel,  channel  2,  of 

the  DAM. 
Line3   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  flow  channel,  channel  3, 

of  the  DAM. 
Line4   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  temperature  channel, 

channel  4,  of  the  DAM. 
No_points  -  an  integer  variable  containing  the  number  of  samples 

col lected . 
0$     -  a  string  variable  containing  the  name  of  the  O2  data 

file. 
Cmax    -  an  integer  variable  containing  the  maximum  sampled  datum 

point  obtained  from  the  O2  channel,  Line2. 
Onin    -  an  integer  variable  containing  the  minimum  sampled  datum 

point  obtained  from  the  O2  channel,  Line2. 


T$ 


Tmax 


Tmin 


True 

V$ 
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-  a  string  variable  containing  the  name  of  the  temperature 
data  file. 

-  an  integer  variable  containing  the  maximum  sampled  datum 
point  obtained  from  the  temperature  channel,  Line4. 

-  an  integer  variable  containing  the  minimum  sampled  datum 
point  obtained  from  the  temperature  channel,  Line4. 

-  an  integer  used  as  the  constant  Boolean  value  of  true. 

-  a  string  variable  containing  the  name  of  the  flow  data 
file. 


A7  . 5 . 2   File  locations  Subroutine 

The  Fi 1 e_l  oca t i ons  subroutine  prompts  the  operator  for  the 
storage  location  of  the  ASCII  format  data.  The  file  1 ocat i on  where  the 
numeric  format  data  is  to  be  stored  is  always  set  equal  to  the  8-inch 
disk  drive  (:HP9895, 700,0).  This  could  be  easily  changed  to  prompt  the 
operator  for  a  specific  storage  location.  This  subroutine  is  also  used 
by  CAPCRUNCH. 

Common  Rl ocks  Used  by  the  Subrout  i  ne 
None 

.  passed  Xa.   the  procedures 


None 

Variables  returned  iy.  the  procedures 

Ascii loc$  -  string. 

Data_loe$  -  string. 

Va  r  i  a  b  1  e  def  ini  t  i  tins 


A  -    a    real    variable    used    as    a    pointer    into    the    Msi_devices$ 

array. 
Ascii loc$    -     a    string    variable    equal    to    the    operator    specified 

storage    location    of    the   ASCII    format    data. 
Data_loc$    -    a    string   variable    set    equal    to    the    8-inch   disk   drive 

device    specification    ( :HP9895, 700,0)  which  wi  1  1    be    used    to 

store    the    numeric    format      data. 
Msi_devices$     -     a      string      array     containing     the     device 

specifications    of    the    disk   drives    containing    the    data. 

Element      1      specifies      platter      1      of      the     hard     disk 

(:HP9895, 702,1),     element    2    specifies    platter    2   of    the   hard 
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disk  ( :HP9895,702,2),  and  element  3  specifies  the  8-inch 
disk  drive  ( :HP9895, 700,0). 


A7  .  5 . 3   Rd  and  crunch  Subroutine 

The  Rd and crunch  (Read  and  crunch)  subroutine  performs  the  file 

conversion  operation  on  the  ASCII  format  data.  The  subroutine  reads 
one  of  the  ASCII  format  files  from  the  disk.  The  data  read  is  then 
converted  to  numeric  data.  The  numeric  data  is  then  returned  to  the 
call ing  rout  ine. 

Cnnrnnn  Rl neks  Used  by  the  Suhrnut  i  ne 
None 

Variables  passed  _L0_  the  procedures 

Ascii loc$  -  string. 

File_nm$  -  string. 
Num    -  integer. 

Array   -  array  of  integer. 
Max     -  integer . 
Min     -  integer. 

Va  r  i  a  h 1 e  def ini  t i nns 

A$      -  anarrayof  string  elements.   The  size  of  the  array  is 

equal  to  the  Num  parameter.   The  ASCII  data  are  read  into 

this  array. 
Array   -  an  array  of  integers.   The  ASCII  data  are  converted  to 

numeric  data  and  stored  in  Array.   Array  is  returned  to 

the  calling  routine. 
Ascii_loc$  -  a  string  variable  equal  to  the  operator  specified 

storage  location  of  the  ASCII  format  data. 
File_nm$  -  a  string  variable  equal  to  ASCII  file  which  is  to  be 

read  from  disk. 
FormfdS  -  a  single  character  string  used  as  the  constant  value  of 

the  ASCII  form  feed  character  (12  decimal,  OC  hex). 
I       -  an  integer  variable  used  as  a  loop  counter. 
Max     -  an  integer  variable  containing  the  maximum  sampled  datum 

point  obtained  from  the  channel  being  read  and  crunched. 
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Max$    -  a  string  variable  equal  to  the  ASCII  value  of  Max. 
Min     -  an  integer  variable  containing  the  minimum  sampled  datum 

point  obtained  from  the  channel  being  read  and  crunched. 
Min$    -  a  string  variable  equal  to  the  ASCII  value  of  Min. 

-  an  integer  variable  equal  to  the  number  of  samples 

col  lee  ted  . 


Num 


A7  . 5 . 4  Write  data  Subroutine 

The  Write_data  subroutine  stores  a  channel  of  the  sampled  data  in 
numeric  format  files.  The  subroutine  creates  the  file  and  stores  the 
data  in  the  file.   The  file  format  is  specified  by  Riblett  [13]. 

Common  Blocks  Used  by  the  Suhrout  i  ne 
None 

Variables  passed  _Lo_  the  procedures 
Data_loc$  -  string. 
File_nm$  -  string. 
Num    -  integer. 

Variables  returned  iy_  the  procedures 
Array   -  array  of  integer. 
Max     -  integer. 
Min     -  integer. 

Var i  ahl e    def ini  t inns 

Array      -    an   array   of    integers.      The  ASCII   data   are   converted   to 

numeric   data   and    stored    in  Array.      Array    is    returned    to 

the    calling    routine. 
Data_loc$    -    a   string   variable   equal    to    the   operator   specified 

mass    storage   specification  of  device  which  wil 1    contain 

the    numeric    data. 
File_nm$    -    a    string    variable    equal    to   the   data   file-   to   be    stored. 
Max  -    an    integer   variable    containing    the  maximum  sampled   datum 

point    obtained    from   the    channel    being    read    and    crunched. 
Min  -    an    integer   variable    containing    the  minimum  sampled   datum 

point    obtained    from   the    channel    being    read    and    crunched. 
Num  -    an     integer    variable     equal     to     the    number    of    samples 

col lected  . 
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A7.5.5  nAPTRUNCH  Program  Listing 


******************************************************************* 

DAM  DATA  FILE,  ASCII  TO  BINARY  CONVERSION  ROUTINE 

HP  BASIC  FILENAME:  DAPCRUNCH 

Department  of  Electrical  and  Computer  Engineering 
Kansas  State  University. 


REVISION 


1.0 
1.1 


************* 


DATE 

JUNE  1,  1984 
AUGUST  7,  1984 


PROGRAMvCR 

LOREN  E.  RIBLETT 
MICHAEL  MASTERS 


*************************************** 


PURPOSE 

THIS  ROUTINE  CONVERTS  FOUR  ASCII    FILES  OF  DAM  DATA  (NAMELY 
THE  CD2,   02,    FLOW,  AND  TEMPERATURE  DATA  FILES)  CREATED 
BY  "DAP. CEDE"  TO  FOUR  FILES  OF  BINARY  DATA,   ALLOWING  FOR 
M3RE  EFFICIENT  DATA  STORAGE. 

ROUTINE(S)  CALLED  BY  THIS  ROUTINE 

AUTOST  -  USER  PROGRAM  ACCESS  ROUTINE 

********************************************************************** 

NOTE  1:  The  files  to  be  converted  must  be  named  M>NSTER1A_, 
M3NSTER2A_,  MDNSTER3A_,  and  M3NSTER4A_. 
(These  files  -would  be  named  M3NSTER1  .ASC,  M3NSTER2.ASC, 
etc.  in  the  PASCAL  operating  system.) 

NOTE  2:  Converted  files  (binary)  will  be  stored  on  the  8"  floppy 
":HP9895, 700,0".  The  data  f  ram  M)NSTER1A_  is  assumed  to 
be  CD2  data,  \CNSTER2A_  is  02  data,  M3NSTER3A_  is  flow 
data,  and  M0NSTER4A_  is  temperature  data. 

NOTE  3:  Binary  data  file  names  in  excess  of  10  characters  should 
not  be  used. 

NOTE  4:  ASCII  files  are  purged  following  the  conversion  process. 

NOTE  5:  AUTOST  is  called  following  completion  of  DAPCRUNCH. 


**************************** 


************************** 


OPTION  BASE  1 

COM  /Resp_datal/  INTEGER  LineK  1 :24000)  ,Line2(  1 :24O00) 

COM  /Resp_data2/  INTEGER  Line3(l :24000) ,Line4( 1 :24000) 

COM  /Resp_data3/  INTEGER  Cmin.Cmax  ,Cmin,Chiax,Fmin,Fmax  ,Tmin,Tmax 

COM  /Resp_data4/  INTEGER  No_points 

COM  /Resp_data5/  C1$[10]  ,0$[10]  ,V$[10]  ,T$[10] 

COM  /Cal_datal/  Cal$[ 10] ,Dat e$[25] 

COM  /Cal_data2/  INTEGER  Co2_dc_of  f  set  ,02_dc_of f se t  ,Bin_Zero_f  low.S 

COM  /Cal_data3/  REAL  Co2_cal  ,02_cal 

COM  /Cal_data4/  REAL  Non_c_i_f  1  owe  a  1 ,  Non_c_e_f  1  owe  a  1 

COM  /Cal_data5/  REAL  Corr_i_f  lowcal  ,Corr_e_f  lowcal 

COM  /Cal_data6/  REAL  Ta.Tb.Tc 

CCM  /Cal_data7/  REAL  Time_delay ,01  ,Pb,Rel_humid ,Roorn_temp 

COM  /Anal_datal/  INTEGER  Data_ava  i  lable 

INTEGER  True 


A7.28 


630 
640 
650 
660 
670 
680 
690 
700 


DIM  Ascii_loc$[l3],Data_locS[l3],File_nm$[lO] 

True-(l-l) 

Formfd$=CHR$(l2) 

**»  SPECIAL  FUNCTION  KEY  DEFINITIONS 


Detennlne  where  the  ASCII  data  is  stored  and  where  the 
BINARY  data  will  be  stored. 
File__locations(Ascii loc$,Data_loc$) 


***  GET  NUMBER  OF  DATA  POINTS  AND  MAKE  APPROPRIATE  DIMENSIONS 

No_points 


BEEP 

INPUT  "ENTER  NUMBER  OF  DATA  POINTS  TO  CRUNCH: 


ON  KEY  1  LABEL  "DCRUNCH"  GOTO  Crunch_data 
ON  KEY  9  LABEL  "  EXIT"  GOTO  Done 

710  Idle:GOTO  Idle 

720  Crunch_data:OFF  KEY 

730   Formfd$=CHR$(12) 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 


**  Prompt  the  user  for  the  file  names  in  which  the  data  will  be  stored 
BEEP 

INPUT  "ENTER  NAME  OF  C02  BINARY  LATA  FILE", CIS 
BEEP 

0$="0"(SC1$[2,LEN(C1$)] 

INPUT  "ENTER  NAME  OF  02  BINARY  DATA  FILE:   ",0$ 
BEEP 

V$="V"&C1$[2,LEN(C1$)] 

INPUT  "ENTER  NAME  OF  FLOW  BINARY  DATA  FILE:   "  ,V$ 
BEEP 

T$-"T"<SC1$[  2  ,LEN(C1$)  ] 

INPUT  "ENTER  NAME  OF  TEMPERATURE  BINARY  DATA  FILE:   ",T$ 
j 
j 
IF  Data_loc$=Ascii_loc$  THEN 

PRINT  TABXY(l,18);"Install  the  ASCII  data  disk  in  the  8  in.  drive" 

PRINT 

PRINT  "Press  CONTINUE  when  you  are  ready  to  proceed." 

BEEP 

PAUSE 

PRINT  FormfdS 


***  READ  AND  CRUNCH  ASCII  DATA  MDNSTER  FILES. 


1060  END  IF 

1070 

1080 

1090 

1100 

1110 

1120 

1130  Rd_and_crunch(("MDNSTERlA_"),Ascii_loc$,No_45oints,Cmax,Ctnin,Linel(*)) 

1140  Rd_and_crunch(("M3>JSTER2A_"),Ascii_loc$,No_points,Cmax,Cmin,Line2(*)) 

1150  Rd_and_crunch(CM>JSTER3A_"),Ascii_loc$,No_j)oints,Fmax,Fmin,Line3(')) 

1160  Rd_jna_crunch((,MKSTER4A_"),Ascii_loc$,No_J)oints,Tmax,Trnin>Line4(»)) 

1180 

1190 

1200   !  Store  the  data. 

1210 

1220  IF  Data_loc$-Ascii_loc$  THEN 

PRINT  TABXYC 1,18);  "Take  out  the  ASCII  data  disk  and  put  in  the" 

PRINT  "BINARY  data  disk." 

PRINT 


1230 
1240 
1250 
1260 
1270 


PRINT  "Press  CONTINUE  when  you  are  ready  to  proceed." 
BEEP 
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Purge  the  monster  files. 


'**  RETURN  TO  ALTOST 


1280  PAUSE 

1290  PRINT  FormfdS 

1300  END  IF 

1310  Write_data(Cl$,Data_loc$,No_points,Qnax,Qriin,Lirjel(*)) 

1320  Wite_data(0$,Data_loc$,No_points,Omax,Omin,Line2(*)) 

1330  Wri  te_data(V$,Data_Joc$,No_points  ,Fmax,Fmin,Line3(*)) 

1340  Vfrite_data(T$,Data_Joc$,No_points  ,Tmax,Tmin,Line4(*)) 

1350 

1360 

1370 

1380 

1390  IF  Data_loc$-Ascii_loc$  THEN 

1400  PRINT  TABXY(l,18);"Exchange  the  BINARY  data  disk  and  insert- 

1410  PRINT  "the  ASCII  data  disk." 

1420  PRINT 

1430  PRINT  "Press  CONTINUE  -when  you  are  ready  to  proceed." 

1440  BEEP 

1450  PAUSE 

1460  END  IF 

1470  PURGE  "\ONSTERlA_"&Ascii_loc$ 

1480  PURGE  "M3NSTER2A_"&Ascii_loc$ 

1490  PURGE  "M3NSTER3A_"&Ascii_loc$ 

1500  PURGE  "\DNSTER4A_"&Ascii_loc$ 

1510  ASSIGN  ®Path  TO  "DISK_STATA"&Asci  i_loc$ 

1520  OUTPUT  @Path; "EMPTY" 

1530  ASSIGN  sPath  TO  * 

1540 

1550 

1560 

1570  BEEP  1200,2 

1580  Data_available=True 

1590  PRINT  FormfdS 

1600  PRINT  "DATA  FILE  COMPACTION  COMPLETE.  RETURNING  TO  AUTOST" 

1610  DonerOFF  KEY 

1620  MASS  STORAGE  IS  ": INTERNAL" 

1630  LOAD  "AUTOST",  1 

1640  END 

1650  ! 

1660  ! 

1670  ! 

1680  SUB  Rd_and_crunch(File_nm$,Ascii_loc$, INTEGER  Num,Max,Min,Array(*)) 

1690  ALLOCATE  A$(l:Num)[4],Max$[4],Min$[4] 

1700  INTEGER  I 

1710  Formfd$=CHR$(l2) 

1720 

1730 

1740 

1750 

1760  DISP  "Now  reading  in  the  ASCII  file  ";File_nm$ 

1770  ASSIGN  aPath  TO  File_nm$&Ascii_loc$ 

1780  ENTER  @Path;Max$,Min$ 

1790  ENTER  @Path;A$(*) 

1800 

1810 

1820 

1830  DISP  "Converting  the  "&File_nm$&"  file  to  Int.  values. 

1840  Max-VAL(MaxS) 

1850  Min=VAL(Min$) 

1860  FOR  1=1  TO  Num 

1870  Array(I)=VAL(A$(I)) 

1880  NEXT  I 

1890  ASSIGN  aPath  TO  * 

1900  DISP 

1910  SUBEND 

1920  ! 


Read  the  ASCII  file 
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1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 


! 


SUB  Write_data(File_nm$, Da ta_loc$,  INTEGER  Num,Max,Min,Array(*)) 

***  CREATE  BINARY  DATA  FILE  FOR  DATA 

DISP  "Now  storing  the  Integer  data  file  "&File_nm$ 
CREATE  BDAT  File_nm$&Data_loc$,  1 ,2.0*(Num+2) 
ASSIGN  ePath  TO  File_nm$&Data_loc$ 
ON  END  ©Path  GOTO  Exit_sub 

***  WRITE  BINARY  EATA 

OUTPUT  @Path;Max,Min 
OUTPUT  «Path;Array(*) 
Exit_sub:ASSIGN  ©Path  TO  * 
DISP 
SUBEND 


SUB  Fi  le_locat  ionstAsci  i_loc$,Data_loc$) 

DIMMsi_devices$(l:4)[l3] 

Ms  L_devices$(l)=":HP989S,  702,1" 

Msi_devices$(2)=":HP9895,702,2" 

Msi_devices$(3)=":HP9895,700,0" 

Formfd$-CHR$(l2) 

PRINT  FormfdS 

PRINT 

"Mass  Storage  devices" 

1.  The  hard  disk 

2.  The  hard  disk 


platter  1" 
platter  2" 
3.   The  8  inch  floppy  disk." 


PRINT 
PRINT 
PRINT 
PRINT 
BEEP 

INPUT  "Which  storage  location  contains  the  ASCII  data", A 
Ascii_loc$=Msi_devices$(A) 
Data_loc$=Msi_devices$(3) 
PRINT  FormfdS 
SUBEND 
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A7  .  6      ANALYSTS:   A  Basic    Program  Which 

Compu  t  e  a    Xhe    Respi  ratnry    Parameters 


The  ANALYSIS  program  computes  the  breath-by-breath  respiratory 
parameters  from  the  sampled  respiratory  signals.  ANALYSIS  uses  the 
respiratory  data  and  performs  the  calculations  described  in  Chapter  IV 
and  Appendix  III.  The  program  has  the  ability  to  display  the 
calculated  respiratory  parameters  in  a  variety  of  formats.  The 
parameters  may  be  plotted,  two  parameters  per  plot,  or  printed  in 
tabular  format.  The  parameters  calculated  for  individual  breaths  may 
be  displayed  or  the  parameters  for  several  breaths  may  be  combined  and 
averaged.  Averaging  is  done  by  one  of  two  methods,  average  the 
parameter  values  of  a  specified  number  of  breaths  or  average  the 
parameter    values    of   breaths    appearing    in    a  window  of    time. 

A7  .  6  . 1      IhjL  Main.  Routine    of   ANALYSIS 

The  main  routine  of  ANALYSIS  calculates  the  respiratory 
parameters.  The  routine  relies  on  the  Calc_sig_val  subroutine  to 
compute  the  fractional  concentration  of  C02  and  0,  and  the  incremental 
volume  for  each  sample.  The  Expiration  and  Inspiration  functions  are 
used  to  determine  if  a  flow  value  is  an  inspiratory  or  an  expiratory 
flow.  The  calculated  respiratory  parameters  are  displayed  using  the 
Disp_results  subroutine.  The  main  routine  provides  the  plotting  of  the 
sampled  data,  displays  the  average  respiratory  values  for  the  analyzed 
window,  calculates  the  GMS  time  delay,  and  reads  the  respiratory  data 
and    calibration   data    from  disk    files. 

Common    blocks    used  _bx  the    subrout  ine 

Common  Variables    in    the 

filOJLk.  block 

Anal_datal    -   Da ta_ava i labl e 

Anal_data2    -   False,    True 

Anal_data3   -   Co2_prod,    Insp_jnin_vent ,    02_cons,    Time_of_brth 

Anal_data4    -   Expr_min_vent ,   Resp_freq,  V_tid_expr,   V_tid_insp 

Anal_data5    -   Breath_good,    Formf d$ ,   Resp_quot i ent 

Anal_data5a    -    Frc_co2_prod ,    Frc_o2_cons,   Vo  lume_of_Iung 

Anal_data6    -   Corr_flag,   Room_fh2o,    T 

Anal_data7    -    Fh2o_sat,   Vap 
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Anal_data8  -  Resp_yar 
Anal_data9  -  Comments,  NameS 
Cal_datal  -  Cal$,  DateS 

Cal_data2  -  Bin_zero_jfl  ow,  Co2_dc_of f se t ,  02_dc_offset 
Cal_data3  -  Co2_cal,  02_cal 
Cal_data4  -  Non_c_e_f  lowcal,  Non_c_i_f  1  owe  a  1 
Cal_data5  -  Co  r  r_e_f  1  owe  a  1  ,  Corr_i_f  lowca  1 
Cal_data6  -  Ta ,  Tb,  Tc 

Cal_data7  -  01,  Pb,  Rel_humid,  Room_temp,  Time_delay 
Resp_datal  -  Linel,  Line2 
Resp_data2  -  Line3,  I.ine-l 

Resp_data3  -  Qnax ,  Cmin,  Fmax,  Fmin,  Omax,  Ctain,  Tmax, 
Resp_data4  -  No_points 
Resp_data5  -  CIS,  0$,  T$ ,  V$ 

Variable  def  lni  UQnS 

A      -  an  integer  variable  used  as  a  pointer  into  the  flow  and 

temperature  data  arrays  during  integration. 
Adiff   -  a  real  variable  equal  to  the  difference  between  Asum  and 

Bsum. 
Air_expr  -  a  real  variable  equal  to  the  volume  of  air  expired  for 

the  current  breath  being  analyzed. 
Air_insp  -  a  real  variable  equal  to  the  volume  of  air  inspired 

for  the  current  breath  being  analyzed. 
Asum   -  a  real  variable  containing  the  area  above  the  OO2  signal 

based  on  the  integration  limits  Beg_pnt  and  Beg_intg. 

Used  in  the  calculation  of  the  brea th-by-brea th  time 

delay. 
Avco2prod  -  a  real  variable  equal  to  the  average  volume  of  CO2 

produced  per  breath 
Avg__ai  r_expr  -  a  real  variable  equal  to  the  average  expiratory 

tidal  volume  of  the  subject. 
Avg_air insp  -  a  real  variable  equal  to  the  average  expiratory 

tidal  volume  of  the  subject. 
Avg_co2_expr  -  a  real  variable  equal  to  the  average  volume  of  OO2 

expired  per  breath. 
Avg co2 insp  -  a  real  variable  equal  to  the  average  volume  of  CCK 

inspired  per  breath. 
Avg_o2_expr  -  a  real  variable  equal  to  the  average  volume  of  O2 
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expired    per    breath. 
Avg_o2_insp    -    a    real    variable    equal     to    the    average    volume    of  0, 

inspired    per    breath. 
Avg_t  ime_de 1  ay    -    a    real    variable    equal    to    the    average    of    the 

valid    time   delays    computed   on   a   breath-by-breath  basis. 
Avo2cons    -    a    real    variable    equal    to    the    average    volume    of  O, 

consumed    per    breath. 
A$  -    a    string    constant    equal     to    'Air'   and   used    in   printing 

the    analyzed    results. 
Begt ime_col ct    -    a   real    variable   equal    to   the   experimental    time   at 

which    collection   of    the    breath-by-breath   data    began. 
Beg_intg    -    a    real     variable    used    as    an    integration   marker    in    the 

determination    of    the    brea t h-by- brea th    time    delay.      The 

area    above    the    curve    is    found    be    integrating    from   the 

point    of   maximum  COj    to    Beg_intg.       The    area    below   the 

curve    is    found    by    integrating    from  Beg_intg    to    the    ending 

point.      Beg_intg    is    slid    from   the    point    of  maximum  CO,    to 

the    ending    point. 
Beg_pt    -    a    real    variable    used    as    a    pointer    for    the   CO,    signal 

which    points    to  where    integration   above    the   CO,    signal 

begins   (used    in   the    calculation  of   the  breath-by-breath 

time    delay). 
Best_index   -    a   real    variable   used   as   a   pointerwhich  points   to 

the    location    in   OOj    and   Oj    signal    arrays    corresponding    to 

the    beginning'  of     inspiration    (used    in    the    calculation    of 

the    breath-by-breath    time    delay). 
Best_match    -    a    real     variable    containing    the    smallest    difference 

in    the    area    above   and    the    area   below  the    fractional   CO, 

signal    (used    in   the   calculation  of   the   breath-by-breath 

time    delay). 
Bin_zero_f  1  ow   -    an    integer    variable    containing    the    flow  sample 

value    equal    to   zero   flow  through    the   PTM. 
Body_temp     -     a     real     variable     equal     to     the    subject's    body 

temperature . 
Breath_count    -    an    integer    variable    used   as    a   breath   counter   and   a 

pointer    into    the   Resp_var    array. 
Breath_good    -    an    integer   used   as    a    constant    value  which   points    to 

the     good     or     bad     breath    parameter     in     the     respiratory 
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variable  array. 
Bsum   -  a  real  variable  containing  the  area  below  the  C02  signal 

based  on  the  integration  limits  Beg intg  and  End_pt  (used 

in  the  calculation  of  the  breath-by-breath  time  delay) 
Btps_to_stpd  -  a  real  variable  equal   to  the  BTPS  to  STPD 

conversion  factor. 
B_by_b_output  -  an  integer  variable  used  as  a  Boolean  value.   The 

variable  is  true  if  the  breath-by-breath  output  is  not  to 

be  omitted  and  is  false  if  the  output  is  to  be  omitted. 
B$      -  a  string  constant  equal  to  '02'  and  used  in  printing  the 

analyzed  resul ts. 
C      -  a  real  variable  equal  to  the  Co2_dc_of  f  se  t .   C  is  used 

to  shorten  the  length  of  the  statements  involved  in  the 

calculation  of  the  breath-by-breath  time  delay. 
Cal$    -  a  string  variable  containing  the  name  of  the  calibration 

file. 
Chng_fco2  -  a  real  variable  equal  to  the  change  in  the  end 

expirate  concentration  of  C02  between  the  current  breath 

being  analyzed  and  the  previous  breath. 
Ch  n  g_f  o2  -  a  real  variable  equal  to  the  change  in  the  end 

expirate  concentration  of  02  between  the  current  breath 

being  analyzed  and  the  previous  breath. 
Chng_lung_vol  -  a  real  variable  equal  to  the  change  in  the  lung 

volume  between  the  current  breath  being  analyzed  and  the 

previous  breath. 
Onax    -  an  integer  variable  containing  the  maximum  sampled  datum 

point  obtained  from  the  C02  channel,  Linel. 
Onin    -  an  integer  variable  containing  the  minimum  sampled  datum 

point  obtained  from  the  (X>2  channel,  Linel. 
ConmentS  -  a  string  variable  containing  an  operator  specified 

c  orrme  n  t . 
Corr_e_f lowcal  -  a  real  variable  containing  the  PTC  calibration 

factor  for  expiratory  flows  determined  using  temperature 

correct  ions . 
Corr_flag  -  an  integer  variable  used  as  a  Boolean  valuewhich 

indicates  if  the  temperature  corrections  are  to  be  used  in 

computing  the  respiratory  flow. 
Co  rr_i_f  lowcal  -  a  real  variable  containing  the  PTC  calibration 
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factor    for    inspiratory    flows    determined   using    temperature 

cor rec  t  i  ons . 
Co2max    -    the    maximum   C02     value     for     the     breath    (used     in     the 

computation    of    the    breath-by-breath    time    delay). 
Co2min    -    the    minimum   C02     value     for     the     breath    (used     in     the 

computation   of    the    breath-by-breath    time    delay). 
Co2prod    -    a    real    variable    equal    to   the   volume   of  002  produced  for 

the    current    breath   being   analyzed. 
Co2_cal    -    a    real    variable    equal    to   the  C02   calibration   factor. 
Co2_dc_of  f  se  t    -    an    integer    variable    containing    the    sampled  002 

value    corresponding    to    room  air. 
Co2_expr    -    a    real    variable    equal    to   the   volume   of  C02   expired  for 

the    currfnt    breath   being   analyzed. 
Co2_insp   -    a   real    variable   equal    to   the   volume   of  CO,    inspired 

for    the    current    breath   being    analyzed. 
Co2_prod    -    an    integer   used   as   a   constant   value  which  points    to 

the     computed     rate     of    C02    production    parameter     in    the 

respiratory   variable    array. 
Ctmax      -    a    real    variable    equal     to    the    temperature    corresponding 

t  o  Tma  x . 
Ctmin      -    a    real    variable    equal     to    the    temperature    corresponding 

to  Tmin. 
Cl$  -    a    string   variable    containing    the   name   of    the  C02   data 

file. 
C$  -    a    string    constant    equal     to    'C02'   and   used    in   printing 

the    analyzed    results. 
Da t  a_a va i 1 ab 1 e    -    an    integer    variable   used   as   a   Boolean   value 
which    indicates    if    respiratory   data    are    present    in  memory. 
DateS      -    a     string     variable     containing     the    date     data    were 

col lected . 
D$  -    a     string     constant     equal      to     'Inspired'     and     used     in 

printing    the    analyzed    results. 
End  -    a    real    variable    equal    to    the    ending   point    to    analyze    or 

plot . 
End_intg    -    a    real    variable    equal    to  End_pt. 

End_pt    -    a    real     variable    used    as    a    pointer    to    the    C02    signal 
which     points     to    where     integration     ends     (used     in     the 

calculation   of    the    breath-by-breath    time    delay). 
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Expr_begin  -  an  integer  variable  equal  to  the  first  expiratory 

flow  data  point  of  the  current  breath  being  analyzed. 
Expr_flowcal  -  a  real  variable  set  equal  to  Non_c_e_f  1  owe  a  1  if 

temperature  corrections  are  not  used  and  set  equal  to 

Co r  r_e_f 1  owe  a  1  if  temperature  corrections  are  used. 
Expr_min_vent  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  expi ratory  minute  ventilation  parameter  in 

the  respiratory  variable  array. 
Expr_time  -  a  real  variable  equal   to  the  duration  of  the 

expiratory  cycle  of  the  current  breath  being  analyzed. 
E$      -  a  string  constant  equal  to  'Expired'  and  used  in 

printing  the  analyzed  results. 
False   -  an  integer  variable  used  as  a  constant  Boolean  value  of 

Fa  1  se  . 
Fco2    -  a  real  variable  equal  to  the  fractional  concentration  of 

CX>2  in  the  sample  being  integrated. 
Fh2o_sat  -  a  real  valued,  250  element  array  used  to  hold  the 

saturated  relative  concentrations  of  water  vapor  in  room 

air  between  20°C  and  45°C. 
Final_index  -  a  real  variable  equal  to  the  final  point  in  the 

window  of  data  which  has  been  analyzed. 
Final_insp  -  an  integer  variable  equal  which  points  to  the 

beginning  point  of  the  last  inspiration  analyzed. 
Fmax    -  an  integer  variable  containing  the  maximum  sampled  datum 

point  obtained  from  the  flow  channel,  Line3. 
Fmin    -  an  integer  variable  containing  the  minimum  sampled  datum 

point  obtained  from  the  flow  channel,  Line3. 
FormfdS  -  a  single  character  string  used  as  the  constant  value  of 

an  ASCII  form  feed  character  (12  decimal,  OC  hex). 
Found   -  an  integer  variable  used  as  a  Boolean  value.   Found  is 

used  in  the  search  of  the  first  point  to  be  integrated. 

Found  is  false  until  the  first  inspiratory  flow  is  found. 
Fo2     -  a  real  variable  equal  to  the  fractional  concentration  of 

C>2  in  the  sample  being  integrated. 
Frac h2o body  -  the  fractional  concentration  of  water  vapor  at 

body  temperature. 
Frac_co2_l  -  a  real  variable  equal  to  the  end  expirate  fractional 

concentration  of  CO2  of  the  current  breath  being  analyzed. 
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Frac_co2_2  -  a  real  variable  equal  to  the  end  expirate  fractional 

concentration  of  CCK  of  the  breath  previous  to  the  current 

breath  being  analyzed. 
Frac_o2_l  -  a  real  variable  equal  to  the  end  expirate  fractional 

concentration  of  CK  of  the  current  breath  being  analyzed. 
Frac_o2_2  -  a  real  variable  equal  to  the  end  expirate  fractional 

concentration  of  Oj  of  the  breath  previous  to  the  current 

breath  being  analyzed. 
Frc_co2prod  -  a  real  variable  equal  to  the  COj  produced  during 

the  current  breath,  taking  into  account  the  change  in  lung 

volume  . 
Frc_co2_prod  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  alveolar  CO^  production  parameter  in  the 

respiratory  variable  array. 
Frc_flag  -  a  real  variable  used  as  a  Boolean  value  which  is  true 

if  FRC  computations  are  used  and  is  false  otherwise. 
Frc_o2cons  -  a  real  variable  equal  to  the  Oj    consumed  during  the 

current  breath,  taking  into  account  the  change  in  lung 

vo  1  ume  . 
Frc_o2_cons  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  alveolar  O^  consumption  parameter  in  the 

respiratory  variable  array. 
FJ      -  a  string  constant  equal   to  '(liters)'  and  used  in 

printing  the  analyzed  results. 
Good_exp_count  -  an  integer  variable  used  as  a  counter  for  the 

number  of  good  expirations. 
Good_insp_count  -  an  integer  variable  used  as  a  counter  for  the 

number  of  good  inspirations. 
G$      -  a  string  constant  equal  to  'BTPS'  and  used  in  printing 

the  analyzed  results. 
H$      -  a  string  constant  equal  to  'STPD'  and  used  in  printing 

the  analyzed  results. 
I       -  an  integer  variable  used  as  a  loop  counter. 
Incr    -  a  real  variable  equal  to  an  increment  value  which  is 

used  as  the  increment  parameter  of  the  FOR  loops  used  to 

label  the  X  axes  in  the  data  plotting  routine. 
Incr vol  -  a  real  variable  equal  to  the  incremental  volume  of  air 

computed  from  the  flow  sample. 
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Init_index  -  a  real  variable  equal  to  the  first  point  in  the 

window  of  data  which  is  analyzed. 
Insp_count  -  an  integer  variable  equal  to  the  first  inspiratory 

point  of  the  current  breath. 
Insp_flowcal  -  a  real  variable  set  equal  to  Non_c_i_f 1  owca 1  if 

temperature  corrections  are  not  used  and  set  equal  to 

Corr i__flowcal  if  temperature  corrections  are  used. 

Insp_min_vent  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  inspiratory  minute  ventilation  parameter 

in  the  respiratory  variable  array. 
Insp_time  -  a  real  variable  equal  to  the  duration  of  the 

inspiratory  cycle  of  the  current  breath  being  analyzed. 
Left    -  a  real  variable  equal  to  the  X  value  of  the  left  hand 

side  of  the  data  plots. 
Linel   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  CC>2  channel,  channel  1, 

of  the  DAM. 
Line2   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  O2  channel,  channel  2,  of 

the  DAM. 
Line3   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  flow  channel,  channel  3, 

of  the  DAM. 
Line4   -  an  integer  array,  of  24,000  elements,  containing  the 

s  amp  led  values  obtained  fr  om  the  t  emp  erature  channel, 

channel  4,  of  the  DAM. 
Lung_vol  -  a  real  variable  equal  to  the  calculated  lung  volume. 
Max index  -  a  real  variable  used  as  a  pointer  into  the  CC>2  data 

array  where  the  maximum  OO2  sample  for  the  current  breath 

is  observed,  (used  in  the  calculation  of  the  breath-by- 
breath  time  delay). 
Max_pnt  -  a  real  variable  equal  to  the  sample  corresponding  to 

the  maximum  fractional  concentration  of  (X>2  of  the  current 

breath  being  analyzed. 
Mid_index  -  a  real  variable  used  as  a  pointer  into  the  OO2  data 

array  where   one-half   of   the  maximum  fractional 

concentration  of  CCK  is  observed  in  the  current  breath 

(used  in  the  calculation  of  the  breath-by-breath  time 


A7.39 

delay) . 
Minvole  -  a  real  variable  equal  to  the  average  expiratory  minute 

ventilation  of  the  subject. 
Minvoli  -  a  real  variable  equal  to  the  average  inspi ratory  minute 

ventilation  of  the  subject. 
Min index  -  a  real  variable  used  as  a  pointer  into  the  C02  data 

array  -where  the  minimum  C02  sample  for  the  current  breath 

is  observed,  (used  in  the  calculation  of  the  breath-by- 
breath  time  delay). 
Name  $   -  a  string  variable  containing  an  operator  specified 

subject  name. 
Net_lung_chng  -  a  real  variable  equal  to  the  net  change  in  lung 

volume  for  the  analyzed  window  of  data. 
Non_c_e_f lowca 1  -  a  real  variable  containing  the  PTG  calibration 

factor  for  expiratory  flows  determined  without  the  use  of 

temperature  corrections. 
Non_c_i_f  lowca  1  -   a  real  variable  containing  the  PTG  calibration 

factor  for  inspiratory  flows  determined  wi thout  the  use  of 

temperature  corrections. 
No_points  -  an  integer  variable  containing  the  number  of  samples 

col  1 ec ted  . 
Num_b reaths  -  a  real  variable   equal  to  the  number  of  breaths 

that  were  analyzed. 
Offset  -  a  real  variable  added  to  the  C02  and  02  array  pointers 

for  the  plotting  of  time  aligned  signals. 
01      -  a  real  variable  equal  to  the  fractional  concentration  of 

02  in  the  calibration  gas. 
Cmax    -  an  integer  variable  containing  the  maximum  sampled  datum 

point  obtained  from  the  CU  channel,  Line2. 
Qnin    -  an  integer  variable  containing  the  minimum  sampled  datum 

point  obtained  from  the  02  channel,  Line2. 
02cons  -  a  real  variable  equal  to  the  volume  of  CK  consumed  for 

the  current  breath  being  analyzed. 
02_cal  -  a  real  variable  equal  to  the  O,  calibration  factor. 
02_cons  -  an  integer  used  as  a  constant  value  which  points  to  the 

computed  rate  of  02  consumption  parameter  in  the 

respiratory  variable  array. 
02_dc_offset  -  an  integer  variable  containing  the  sampled  O, 
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value  corresponding  to  the  calibration  gas. 
02_expr  -  a  real  variable  equal  to  the  volume  of  O2  expired  for 

the  current  breath  being  analyzed. 
02_insp  -  a  real  variable  equal  to  the  volume  of  O2  inspired  for 

the  current  breath  being  analyzed. 
0$      -  a  string  variable  containing  the  name  of  the  0^  data 

file. 
P       -  a  real  variable  equal  to  the  number  of  data  points  to  be 

plotted  . 
Pb      -  a  real  variable  equal  to  the  barometric  pressure  at  the 

time  the  system  was  calibrated. 
Ph2o_body  -  a  real  variable  equal  to  the  saturated  partial 

pressure  of  water  vapor  at  body  temperature. 
Q$      -  a  string  variable  used  to  obtain  the  operator's  response 

to  a  question. 
R      -  a  real  variable  equal  to  the  respiratory  quotient. 
Rel_humid  -  a  real  variable  equal  to  the  relative  humidity  at  the 

time  the  system  was  calibrated. 
Respf   -  a  real   variable  equal   to  the  average  respiratory 

frequency . 
Resp freq  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  respiratory  frequency  parameter  in  the 

respiratory .variable  array. 
Resp__quot  i  ent  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  respiratory  quotient  parameter  in  the 

respiratory  variable  array. 
Resp_var  -  a  real  valued  array  containing  the  calculated  breath- 
by-breath  respiratory  parameters.   Resp var  is  a  two 

dimensional  array,  the  first  dimension  is  the  respiratory 

variable  and  the  second  dimension  is  the  breath  number.   A 

more  detailed  description  of  the  respiratory  variable 

array  is  given  in  Section  A7.2  of  this  appendix. 
Right   -  a  real  variable  equal  to  the  X  value  on  the  right  hand 

side  of  the  data  plots. 
Room_fh2o  -  a  real  variable  equal  to  the  concentration  of  water 

vapor  in  room  air. 
Roorn_temp  -  a  real  variable  equal  to  the  room  temperature  at  the 

time  the  system  was  calibrated. 
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S  -    a    real    variable   equal    to   the    sampling   frequency. 

Start      -    a    real     variable    equal     to    the    beginning    point     to    be 

analyzed   or   plotted. 
Still_calc     -    a    real     variable    used    as    a    Boolean    value   which 

indicates    if    data    remains    in    the  window   to   be    analyzed. 
Stpd_to_btps    -    a    real    variable    equal    to    the    STPD   to    BTPS    volume 

conversion    factor. 
T  -    a    real    variable    equal    to    the    s  amp  ling   period   used    to 

collect    the    respiratory   data. 
Ta  -    a   real    variable    equal    to   the   second   order   calibration 

coefficient    for    converting    the    collected    temperature   data 

to  uni  t s   of   °C. 
Tb  -    a    real    variable    equal    to    the    first    order   calibration 

coefficient    for    converting    the    collected    temperature   data 

to  uni  t s   of   °C. 
Tc  -    a    real    variable    equal    to    the    zero    order    calibration 

coefficient    for    converting    the    collected    temperature   data 

to   uni  t s    of  °C. 
Temp        -    a    real     variable    equal     to    the    temperature    corresponding 

to   a    sample    of    the    temperature    channel. 
Temporary    -    a    real    variable   used   as   an   intermediate    variable. 

Temporary    is    used  when    the    average    results    are    printed. 
Temp_a    -    a    real    variable   used      by   the   breath-by-breath   time   delay 

routine     to     preserve     the     variable     'A',      the     flow    and 

temperature    signal    pointer. 
Temp_z    -    a    real    variable   used      by   the   breath-by-breath   time   delay 

routine     to    preserve     the     variable     'Z',     the    C02    and    Oj 

signal    pointer. 
Time_delay    -    an    integer    variable    equal    to    the   GMS    time    delay    in 

mi  1 1  i  -seconds . 
Time_de  1  ay_cn t    -    a    real    variable   equal    to    the  number   of  valid 

time    delays    computed    on   a    breath-by-breath   basis. 
Time_de  1  ay__f  1  ag    -    a    real    variable   which    to    indicate    the    type    of 

time    delay  used.      The    flag    is    equal    to    zero   for   a   fixed 

time    delay,    equal    to   one   for   a   variable    time   delay,    and 

equal    to    two    for    a    variable    time    delaywith    an    invalid 

computed    time    delay. 
Time_de 1 ay_sum    -    a    real     variable    equal     to    the    sum   of    the    valid 
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time  delays  and  is  used  with  Time_de  1  ay_cnt  to  compute  the 

Avg t  ime_d  e  1  ay . 

Time_of_brth    -    an    integer    used    as    a    constant    value   which    points 

to     the     time     of     breath     parameter      in     the     respiratory 

variable    array. 
Tmax        -    an    integer   variable   containing    the  maximum  sampled   datum 

point    obtained    from  the    temperature    channel,    Line4. 
Tmin        -    an    integer   variable    containing    the  minimum  sampled   datum 

point    obtained    from  the    temperature    channel,    Line4. 
Tot_co2_exp    -    a    real     variable    equal     to    the    total     volume    of   CO, 

expired    in    the    analyzed  window  of   data. 
Tot_co2_insp    -    a    real    variable    equal    to    the    total    volume    of   CO, 

inspired    for    all    breaths    in    the    analyzed  window  of   data. 
Tot_co2_prod    -    a    real    variable    equal    to    the    total    volume    of  GO, 

produced    for    all    breaths    in    the    analyzed  window  of   data. 
Tot_o2_cons    -    a   real    variable   equal    to   the    total    volume   of  0, 

consumed    for    all    breaths    in    the    analyzed  window  of   data. 
Tot_o2_exp    -    a    real    variable    equal    to    the    total    volume    of  02 

expired    in    the    analyzed  window  of   data. 
Tot_o2_insp   -    a    real    variable   equal    to    the    total    volume   of  02 

inspired    for    all    breaths    in    the    analyzed  window  of   data. 
Tot_time     -     a     real     variable    equal     to    the    duration    of     the 

respiratory   cycle    currently  being   analyzed. 
To t_t ime_expr     -    a    real     variable    equal     to    the     total     time    of 

expiration   during    the    analyzed  window  of   data. 
To  t_t  ime_insp    -    a    real     variable    equal     to    the    total     time    of 

inspiration   during    the    analyzed  window  of   data. 
To t_t ime_r e sp    -    a    real     variable    equal     to    the     total     time    of 

respi  rat  i  on . 
Tot_vol_exp    -    a    real    variable    equal    to    the    total    volume    expired 

in    the    analyzed  window  of   data. 
Tot_vol_insp   -    a   real    variable   equal    to   the   total    volume    inspired 

for    al 1    breaths    in    the    analyzed  window  of   data. 
True        -    an    integer    used    as    the    constant    Boolean   value   of    true. 
T$  -    a    string   variable    containing    the   name   of   the    temperature 

data    file. 
V^P  -    a     real     valued,     250    element     array    used     to    hold     the 

saturated  water    vapor   pressure    between   20°C  and   45°C. 


A7.43 

Volume_of_lung  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  lung  volume  parameter  in  the  respiratory 

variable  array. 
V_dot_co2  -  a  real  variable  equal  to  the  average  rate  of  C02 

product  ion . 
V_dot_o2  -  a  real  variable  equal  to  the  average  rate  of  02 

consumption. 
V_tid_expr  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  expiratory  tidal  volume  parameter  in  the 

respiratory  variable  array. 
V_tid_insp  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  inspiratory  tidal  volume  parameter  in  the 

respiratory  variable  array. 
V$      -  a  string  variable  containing  the  name  of  the  flow  data 

file. 
Wye     -  a  real  variable  used  as  a  loop  counter  in  the  breath-by- 
breath  time  delay  calculation. 
Z      -  an  integer  variable  used  as  a  pointer  into  the  C02  and 

CU  data  arrays  during  integration. 


A7.6.2  Avg  breath  Subroutine 

The  Avg_breath  subroutine  is  used  to  compute  the  average  of  a 
specified  number  of  br ea th-by- brea t h  values  of  any  respiratory  para- 
meter in  the  respiratory  variable  array.  Those  breaths  specified  as 
'bad'  breaths  may  be  omitted  in  the  computation  of  the  average.  The 
subroutine  is  used  by  the  Max_min,  Plot_value,  and  Pr  int_r  e  su  1  t  s 
subrout  ines . 

Cnnmon  blocks  used  _b_y_  the  suhrnut  ine 

Conmon        Variables  in  the 
Block  block 

Anal_data3  -  Co2_prod,  Insp_min_ven  t ,  02__cons,  Time_of_brth 

Anal_data5  -  Breath_good,  FormfdS ,  Resp_quot i ent 

Anal_data5a  -  Frc_co2_prod  ,  Frc_o2_cons,  Vol  ume_of_l  ung 

Anal_data8  -  Resp_var 

Plot_resp_datal  -  Qnit_bad,  Num_brea  ths ,  No_b_avg 
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.  passed  jlq.  the  subrout  ine 
Br_pntr  -  integer. 
Variable  -  integer. 

Variahl  es  returned  iy_  the  subroutine 
Average  -  real  . 
Num_bad_breaths  -  integer. 
Time    -  real. 

Vari  ahl e  def  ini  t inns 

Average  -  a  real  variable  equal  to  the  average  of  the  specified 

number  of  b r ea t h -  by  - b r e a t h  values  of  the  specified 

respiratory  parameter. 
Breath_good  -  an  integer  used  as  a  constant  value  which  points  to 

the  good  or  bad  breath  parameter  in  the  respiratory 

variable  a  rray. 
Br_pntr  -  an  integer  variable  used  as  a  pointer  into  the  breath 

dimension  of  the  respiratory  variable  array.   Br_pntr 

points  to  the  first  breath  to  be  included  in  the  average. 
J       -  an  integer  variable  used  as  a  loop  counter. 
No_b_avg  -  an  integer  variable  equal  to  the  number  of  breath-by- 
breath  values  to  be  averaged. 
Num_bad_breaths  -  an  integer  variable  equal  to  the  number  of  bad 

breaths  that  are  not  included  in  the  average. 
Num_breaths  -  a  real  variable  equal  to  the  number  of  breaths  to 

be  ana lyzed. 
Omit bad  -  an  integer  variable  used  as  a  Boolean  flag  which 

indicates  if  the  'bad'  breaths  are  not  to  be  inclui.ed  in 

the  average. 
Pointer  -  an  integer  variable  used  as  a  pointer  into  the  breath 

dimension  of  the  respiratory  variable  array. 
Resp_var  -  a  real  valued  array  containing  the  calculated  breath- 

by -breath  respiratory  parameters. 
Time    -  a  real  variable  equal  to  the  time  that  is  midway  between 

the  first  breath  included  in  the  average  and  the  last 

breath  included  in  the  average. 
Time_of_brth  -  an  integer  used  as  a  constant  value  which  points 

to  the   time  of  breath  parameter   in  the  respiratory 

variable  array. 
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Variable  -  an  integer  variable  used  as  a  pointer  into  the 
respiratory  variable  dimension  of  the  respirator  variable 
array.   Variable  is  equal  to  the  respiratory  parameter  to 
be  averaged. 

A7  . 6  . 3  Avg  window  Subroutine 

The  Avg_window  subroutine  is  used  to  compute  the  average  of 
several  breath-by-breath  values  for  all  breaths  occurring  in  a 
specified  window  in  time.  Any  respiratory  parameter  in  the  respiratory 
variable  array  may  be  averaged.  Those  breaths  specified  as  'bad' 
breaths  may  be  omitted  in  the  computation  of  the  average.  The  sub- 
routine is  used  by  the  Max_min,  Plot_value,  and  Pr i nt_r  e su 1 t s  sub- 
rout  ines  . 

Comnon  bl  neks  used  by  the  subrouT.  i  np 


Conrnon 
Block 


Variables  in  the 
block 


Anal_data3  -  Co2_prod,  Insp_min_vent ,  02_cons,  Time_of_brth 
Anal_data5  -  Breath_good,  Formfd$ ,  Resp_quot i ent 
Anal_dataSa  -  Frc_co2__prod  ,  Frc_o2_cons,  Vo  1  ume_of_lung 
Anal_data8  -  Resp_var 

Plot_resp_datal  -  Ctait_bad,  Nurn_breaths,  No_b_avg 
Plot_resp_data2  -  Start_time,  End_t  ime  ,  W_per  iod  ,  W_wd  th 


Variabl  es  passed  ±a.   the  suhrout  ins 
Br_pntr  -  integer. 
Variable  -  integer. 
W_c ntr  -  real. 


,  _b_y_  the  subroutine 
Average  -  real . 
Br_in_w_flag  -  integer. 
Br_pntr  -  integer. 

Va  r i  a  b 1 e  def i  n  i t inns 

Average    -    a    real    variable    equal    to    the    average    of   all    breaths 

occuring    in    the    time   window. 
Br_in_w_flag    -    an    integer    variable   used    as    a   Boolean    value  which 
indicates     if    breaths    were    found    in    the    specified    time 
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window. 

Breath_good  -  an  integer  used  as  a  constant  value  which  points  to 
the  good  or  bad  breath  parameter  in  the  respiratory 
variable  array. 

Br_pntr  -  an  integer  variable  used  as  a  pointer  into  the  breath 

dimension  of  the  respiratory  variable  array.   Br pntr 

points  to  the  first  breath  to  be  included  in  the  average. 

Fs t br_i  n_w_f nd  -  an  integer  variable  used  as  a  Boolean  value 
which  indicates  when  the  first  breath  in  the  specified 
window  is  found. 

Left_edge_w  -  a  real  variable  equal  to  the  time  of  the  left  side 
of  the  window. 

Num_breaths  -  a  real  variable  equal  to  the  number  of  breaths 
that  were  analyzed. 

Num_b_i  n_wi ndow  -  an  integer  variable  equal  to  the  number  of 
breaths  in  the  window  which  were  averaged. 

Omit_bad  -  an  integer  variable  used  as  a  Boolean  flag  which 
indicates  if  the  'bad'  breaths  are  not  to  be  included  in 
the  average. 

Resp_var  -  a  real  valued  array  containing  the  calculated  breath- 
by-breath  respiratory  parameters. 

Time_of_brth  -  an  integer  used  as  a  constant  value  which  points 
to  the  time  of  breath  parameter  in  the  respiratory 
var  iabl  e  array. 

True    -  an  integer  used  as  the  constant  Boolean  value  of  true. 

Variable  -  an  integer  variable  used  as  a  pointer  into  the  resp- 
iratory variable  dimension  of  the  respirator  variable 
array.   Variable  is  equal  to  the  respiratory  parameter  to 
be  averaged. 
W_cntr  -  a  real  variable  equal  to  the  time  of  the  center  of  the 

window. 
W_wdth  -  a  real  variable  equal  to  the  time  width  of  the  window. 

A7  . 6 . 4  Calc  si  g  va 1  Subroutine 

The  Ca  1  c_s  i  g__v  a  1  subroutine  calculates  the  physical  signal  values 
from  one  set  of  samples  of  the  four  channels.  The  subroutine  converts 
the  002  sample  to  the  fractional  concentration  of  C02  and  the  O,  sample 
to  the  fractional  concentration  of  Oj.      The  incremental  volume  for  the 
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sample  from  the  flow  sample  is  calculated.  If  the  temperature  and 
viscosity  corrections  are  to  be  performed  the  incremental  volume  is 
converted  to  STPD  conditions.  This  conversion  is  accomplished  using 
the  temperature  sample,  ambient  conditions,  the  fractional  gas  concen- 
trations, and  the  relative  viscosity  function,  Rel_viscos  (A7.6.14). 
The  Calc_sig_val  subroutine  is  similar  to  the  Ca 1 c_Incr_Vol  procedure 
(A6.1.4)  used  by  the  calibration  program,  CAP2  (A6.1). 


Corrmon 


used  bv  the  . 


Conmon 
Block 


Variables  in  the 
block 


Anal_data6  -  Corr_flag,  Room_fh2o,  T 

Anal_data7  -  Fh2o_sat,  Vap 

Cal_data2  -  Bin_zero_f  1  ow,  Co2_dc_of f set ,  02_dc_offset 

Cal_data3  -  Co2_cal,  02_cal 

Cal_data6  -  Ta ,  Tb ,  Tc 

Cal_data7  -  Ol  ,  Pb,  Rel_humid,  Room_temp,  Time_delay 

Resp_datal  -  Linel,  Line2 

Resp_data2  -  Line3,  Line4 


Va r i a b I e s  passed  _lo_  the  procedure 
A      -  integer . 
lnsp_or_expr$  -  string. 
Z      -  integer . 

Yariabl  es  returned  _b_y_  the  procedure 
Fco2    -  real. 
Fo2    -  real  . 
Incr_vol  -  real. 

Va  r  i  a  b 1 e  def ini  t  inns 

A      -  an  integer  variable  used  as  a  pointer  into  the  flow  and 

temperature  data  arrays  during  integration. 
Bin_flow  -  a  real  variable  proportional  to  the  flow.   The  value 

is  computed  by  subtracting  the  value  of  zero  flow  and 

dividing  by  the  relative  viscosity. 
Bin_ze  ro_f  1  ow  -  an  integer  variable  containing  the  flow  sample 

vajue  corresponding  to  zero  flow  through  the  PTM. 
Corr_ flag  -  an  integer  variable  used  as  a  Boolean  valuewhich 

indicates  if  the  temperature  corrections  are  used  in 
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computing  the  respiratory  flow. 

Co2_cal  -  a  real  variable  equal  to  the  CO2  calibration  factor. 

Co2_dc_of  f  se  t  -  an  integer  variable  containing  the  sampled  OO2 
value  corresponding  to  room  air. 

Fco2  -  a  real  variable  equal  to  the  fractional  concentration  of 
CO2  calculated  from  the  CO9  sample.  This  concentration 
value  neglects  the  amount  of  water  vapor  in  the  respir- 
atory flow  gas. 

Fco2_wet  -  a  real  variable  equal  to  the  fractional  concentration 
of  CO2  in  the  wet  respiratory  gas.  This  concentration 
value  takes  into  account  the  amount  of  water  vapor  in  the 
respiratory  flow  gas. 

Fh2o  -  a  real  variable  equal  to  the  fractional  concentration  of 
water  vapor  in  the  respiratory  flow  gas. 

Fh2o_sat  -  a  real  valued,  250  element  array  used  to  hold  the 
saturated  relative  concentrations  of  water  vapor  in  room 
air  between  20°C  and  45°C. 

Fn2_wet  -  a  real  variable  equal  to  the  fractional  concentration 
of  Nj  in  the  wet  respiratory  gas.  This  concentration 
value  takes  into  account  the  amount  of  water  vapor  in  the 
respiratory  flow  gas. 

Fo2  -  a  real  variable  equal  to  the  fractional  concentration  of 
O2  calculated  from  the  O2  sample.  This  concentration 
value  neglects  the  amount  of  water  vapor  in  the  respir- 
atory f  low  gas. 

Fo2_wet  -  a  real  variable  equal  to  the  fractional  concentration 

,  of  O2  in  the  wet  respiratory  gas.  This  concentration 
value  takes  into  account  the  amount  of  water  vapor  in  the 
respiratory  flow  gas. 

Incr_vol  -  a  real  variable  proportional  to  the  incremental  volume 
of  gas  c  omp  uted  from  the  flow  s  amp  le.  Multiplying 
Incr_vol  by  the  flow  calibration  factor  yields  the 
incremental  volume  in  liters.  However,  the  mul t ipl icat ion 
of  the  sample  by  the  flow  calibration  factor  is  done  after 
the  entire  respiratory  cycle  is  integrated  in  order  to 
reduce  computation  time  in  the  integration  loop. 

Insp_or_expr$  -  a  string  variable  used  to  indicate  if  the  sample 
being  analyzed  is  an  inspiratory  or  an  expiratory  flow. 
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Linel      -    an    integer    array,    of    24,000    elements,     containing    the 

sampled    values    obtained    from   the    00^    channel,    channel    1, 

of   the  DAM. 
Line2      -    an    integer    array,    of    24,000    elements,     containing    the 

sampled    values   obtained   from  the  O2   channel,    channel    2,    of 

the   DAM. 
Line3      -    an    integer    array,    of    24,000    elements,     containing    the 

sampled    values    obtained    from  the    flow  channel,    channel    3, 

of    the  DAM. 
Line4      -    an    integer    array,    of    24,000    elements,     containing    the 

sampled    values    obtained    from   the    temperature    channel, 

channel    4,    of    the   DAM. 
01  -    a   real    variable   equal    to    the   fractional    concentration  of 

C>2    in    the    calibration   gas. 
02_cal    -    a    real    variable    equal    to    the  O2   calibration   factor. 
02_dc_offset    -    an    integer    variable    containing    the    sampled   O2 

value    corresponding    to    the    calibration   gas. 
Pb  -    a    real    variable    equal    to    the    barometric    pressure    at    the 

time    the    system  was    calibrated. 
R e 1 _V iscosity   -    a    real    variable    equal    to   the   viscosity  of   the 

respiratory    gas    relative    to    the    viscosity    of    room   air 

under    STPD   conditions. 
Roorn_fh2o    -    a    real    variable    equal     to    the    relative    concentration 

of  water    vapor    in    room  air. 
T  -    a    real    variable    equal     to    the    sampling    period    used    to 

collect    the    respiratory   data. 
Ta  -    a    real    variable   equal    to   the   second  order   calibration 

coefficient    for    converting    the    collected    temperature   data 

to   uni  t s   of   °C. 
Tb  -    a    real    variable    equal     to    the    first    order    calibration 

coefficient    for    converting    the    collected    temperature   data 

to   uni  t s   of   °C. 
Tc  -    a    real     variable    equal     to    the    zero    order    calibration 

coefficient    for    converting    the    collected    temperature    data 

to   uni  t s    of  °C. 
Temperature    -    a    real    variable   equal    to    the    temperature    of   the 

flow   gas. 
Z  -    an    integer   variable   used   as   a  pointer    into   the  CO2  and 
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O2  data  arrays  during  integration. 

A7 . 6 .5  Disp  results  Subrnut  ine 

The  Disp_results  subroutine  provides  the  main  control  for  the 
display  of  the  respiratory  parameters.  The  subroutine  provides  the 
ability  to  generate  two  types  of  respiratory  parameter  output,  a  plot 
of  any  two  respiratory  parameters  or  a  printed  copy  of  all  respiratory 
parameters.  The  values  of  a  respiratory  parameter  from  several  breaths 
may  be  averaged  by  two  techniques:  breath  averaging  or  window 
averag  ing . 

Common  Variables  in  the 

Block  block 

Anal_data2  -  False,  True 

Anal_data3  -  Co2_prod,  Insp_jnin_vent ,  O2_cons,  Time_of_brth 

Anal_data4  -  Expr_jnin_vent ,  Resp_freq,  V_tid_expr,  V_tid_insp 

Anal_dataS  -  Breath_good,  FormfdS,  Resp_quot i ent 

Anal_data5a  -  Frc co2 cons,  Frc o2 cons,  Volume of lung 

Anal_data8  -  Resp_var 

Anal_data9  -  Comments,  NameS 

Cal_datal  -  Cal$,  DateS 

Plot_resp_datal  -  Qni  t_bad  ,  Num_b  r  e  a  t  h  s  ,  No_b_avg 

Plot_resp_data2  -  Start_time,  End_t  ime ,  W_period,  W_wdth 

Va  r  j  a  b  1  e  5  passed  _LO_  the  procedure 
Breaths  -  integer. 
Co r r_f lag  -  integer. 

Variables  returned  _b_y_  the  procedure 
None 

Va  r  i  a  b  1  e  def ini  t inns 

Avg_bad_comnt $    -    a    string   variable  which    is   used    to    label    the 

plot    with     the     type     of     averaging     technique     used     and 

indicate    if    bad    breaths    are    omitted. 
Avg_type$     -    a     string     variable    which     indicates     the     type     of 

averaging     technique     used     to     average     the     respiratory 

parameters . 
Breaths    -    an    integer    variable    equal     to    the    number    of    breaths 

contained    in    the    respiratory    parameter    array. 
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Corr flag  -  an  integer  variable  used  as  a  Boolean  value  which 

indicates  if  the  temperature  corrections  are  used  in 
computing  the  respiratory  flow. 
Da  t  e  $   -  a  string  variable  containing  the  date  the  data  we  re 

collected. 
End_t ime  -  a  real  variable  equal  to  the  ending  time  of  the 

respiratory  results  display. 
EventlS  -  a  string  variable  used  as  an  operator  defined  event 
corresponding  to  the  time  defined  by  TimelS.   The  event  is 
labeled  on  plots  of  respiratory  data. 
Event2$  -  a  string  variable  used  as  an  operator  defined  event 
corresponding  to  the  time  defined  by  Time2$.   The  event  is 
labeled  on  plots  of  respiratory  data. 
False   -  an  integer  variable  used  as  a  constant  Boolean  value  of 

False . 
Figl    -  an  integer  variable  equal  to  the  first  respiratory 

parameter  to  be  plotted. 
Fig2    -  an  integer  variable  equal  to  the  second  respiratory 

parameter  to  be  plotted. 
FormfdS  -  a  single  character  string  used  as  the  constant  value  of 

an  ASCII  form  feed  character  (12  decimal,  OC  hex). 
Maxl    -  a  real  variable  equal  to  the  maximum  value  to  be  plotted 

for  the  first  respiratory  variable. 
Max2    -  a  real  variable  equal  to  the  maximum  value  to  be  plotted 

for  the  second  respiratory  variable. 
Mini    -  a  real  variable  equal  to  the  minimum  value  to  be  plotted 

for  the  first  respiratory  variable. 
Min2    -  a  real  variable  equal  to  the  minimum  value  to  be  plotted 

for  the  second  respiratory  variable. 
NameS   -  a  string  variable  containing  the  subject  name. 
No_b_avg  -  an  integer  variable  equal  to  the  number  of  breaths  to 

average  when  performing  breath  averaging. 
Nurn_breaths  -  a  real  variable   equal  to  the  number  of  breaths  in 

the  respiratory  variable  array. 
Omi  t_bad  -  an  integer  variable  used  as  a  Boolean  flag  which 
indicates  if  the  'bad'  breaths  are  not  to  be  included  in 
the  average. 
Plot_dev$  -  a  string  variable  containing  the  plotting  device  to 
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be  used  to  plot  the  respiratory  parameters. 
Q$     -  a  string  variable  used  to  obtain  the  operator's  response 

to  a  question. 
Resp_quot i ent  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  respiratory  quotient  parameter  in  the 

respiratory  variable  array. 
Resp_var  -  a  real  valued  array  containing  the  calculated  breath- 

by -breath  respiratory  variables.   Resp_var  is  a  two 

dimensional  array,  the  first  dimension  is  the  respiratory 

variable  and  the  second  dimension  is  the  breath  number.  A 

more  detailed  description  of  the  respiratory  variable 

array  is  given  in  Section  A7.2  of  this  appendix. 
Result typeS  -  a  string  variable  used  to  indicate  the  type  of 

output  used  to  display  the  respiratory  parameters. 
Start_time  -  a  real  variable  equal  to  the  starting  time  of  the 

respiratory  results  display. 
TimelS  -  a  string  variable  used  as  an  operator  defined  time  mark. 

The  time  is  labeled  on  plots  of  respiratory  data. 
Time2$  -  a  string  variable  used  as  an  operator  defined  time  mark. 

The  time  is  labeled  on  plots  of  respiratory  data. 
TitleS  -  a  string  variable  used  as  an  operator  defined  title  to 

be  placed  on  the  plot. 
Time_of_brth  -  an  integer  used  as  a  constant  value  which  points 

to  the  beginning  time  of  each  breath  in  the  respiratory 

variable  array. 
True    -  an  integer  used  as  the  constant  Boolean  value  of  true. 
W_period  -  a  real  variable  equal  to  the  period  of  which  the 

window  is  slid. 
W_wdth  -  a  real  variable  equal  to  the  time  width  of  the  window. 

A7  . 6 . 6  Expand  dump  Subrput ine 

The  Expanded_dump  subroutine  generates  a  full  page  graphics  dump 
of  the  HP9826's  screen  on  the  thermal  printer.  Expanded_dump  is  not 
called  within  the  program  but  may  be  called  by  the  operator.  While  the 
program  is  paused  the  operator  must  type  the  command  belowand  press 
the  'EXECUTE'  key. 

CALL  Expanded_dump 
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Ctmmon  blocks  used  iy_  the  subrout  ine 
None 

Variables  passed  xq_  the  . 
None 


Var i  ahl es 
None 


.  ix  the  . 


Var  iahl  e  def  ini  t  ions 
None 


A7  . 6 . 7  Expi  rati  on  Funct  ion 

The  Expiration  function  tests  a  flow  sample  to  determine  if  the 
flow  is  an  expiratory  flow.  The  function  returns  an  integer  evalue 
which  acts  as  a  Boolean  variable.  The  returned  value  is  equal  to  true 
if  the  flow  is  an  expiratory  flow  and  is  equal  to  false  if  the  flow  is 
not  an  expiratory  flow.  An  expiratory  flow  sample  must  meet  one  of 
the  following  two  conditions. 

1.  The  flow  sample  is  greater  than  the  sample  corresponding  to 
zero  flow,  or 

2.  one  of  the  next  five  flow  samples  are  greater  than  or  equal 
to  zero  fl ow. 

These  conditions  were  defined  by  Riblett  [13]. 


Corrmnn  Bl  ocks  Used  by  the  . 

Common  Variables  in  the 

Block  block 

Cal_data2  -  Bin_jzero_f  1  ow,  Co2_dc_of f se t ,  02_dc_offset 

Resp_data2  -  Line3,  Line4 

Va  r  i  a  h  1  e.  s  passed  to  the  funct  i  on 
Pntr    -  integer. 

Variable  def ini  t ions 

Bin zero_f  low  -  an  integer  variable  containing  the  flow  sample 

corresponding  to  zero  flow  through  the  PTM. 
Expiration  -  an  integer  variable  used  as  a  Boolean  value  which 
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indicates  if  the  sample  is  an  expiratory  flow. 
1      -  an  integer  variable  used  as  a  loop  counter. 
Line3   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  flow  channel,  channel  3, 

of  the  DAM. 
Pntr    -  an  integer  variable  equal  to  the  flow  sample  being 

tested. 

A7  . 6 . 8  Inspi  rat  i  on  Funct  ion 

The  Inspiration  function  tests  a  flow  sample  to  determine  if  the- 
flow  is  an  inspiratory  flow.  The  function  returns  an  integer  value 
which  acts  as  a  Boolean  variable.  The  returned  value  is  equal  to  true 
if  the  flow  is  an  inspiratory  flow  and  is  equal  to  false  if  the  flow  is 
not  an  inspiratory  flow.  An  inspiratory  flow  sample  must  meet  one  of 
the  following  two  conditions. 

1.  The  flow  sample  is  less  than  the  sample  corresponding  to  zero 
f 1 ow,  o  r 

2 .  one  of  the  next  five  fl ow  s amp les  are  less  than  or  equal  to 
zero  f 1  ow. 

These  conditions  were  defined  by  Riblett  [13]. 

Corrmon  Blocks  Used  Jjg,  the  funct  ion 

Corrmon  Variables  in  the 

J&lQJLt  block 

Cal_data2  -  Bin_ze  ro_f  1  ow,  Co2_dc_of  f  se  t ,  02_dc_offset 

Resp_data2  -  Line3,  Line4 

Va r i a b 1 e s  passed  to  the  function 
Pntr    -  integer. 

Variable  def ini  t inns 

Bin_ze  ro_f  1  ow  -  an  integer  variable  containing  the  flow  sample 

corresponding  to  zero  flow  through  the  PTM. 
Inspiration  -  an  integer  variable  used  as  a  Boolean  value  which 

indicates  if  the  sample  is  an  inspiratory  flow. 
I       -  an  integer  variable  used  as  a  loop  counter. 
Line3   -  an  integer  array,  of  24,000  elements,  containing  the 

sampled  values  obtained  from  the  flow  channel,  channel  3, 
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of  the  DAM. 
Pntr    -  an  integer  variable  equal  to  the  fl ow  s amp  1 e  being 
tested . 

A7 . 6 . 9   Make  axes  Suhrnut  ine 

The  Make_axes  subroutine  generates  a  set  of  axes  for  plots  of  the 
respiratory  parameters.  The  scale  of  the  plot  is  declared  from  the 
maximum  and  minimum  values  to  be  plotted  and  the  starting  and  ending 
times.  The  X-axis  is  labeled  with  the  units  of  time  and  the  Y-axis  is 
labeled  with  the. respi ratory  parameter  to  be  plotted. 

Cnrrmnn  bl ocks  used  by  the  subrout  ine 

Common  Variables  in  the 

Block  block 

Anal_data3  -  Co2_prod,  lnsp_min_ vent ,  02_cons,  Time_of_brth 

Anal_data4  -  Expr_min_vent ,  Resp_freq,  V_tid_expr,  V_tid insp 

Anal_data5  -  Breath_good,  FormfdS  ,  Resp_quot i ent 

Anal_data5a  -  Frc_co2_cons  ,  Frc_o2_cons,  Vo  lume_of_lung 

Plot_resp_data2  -  Start_time,  End_t  ime  ,  W_period,  WjNdth 

Var  iables  passed  _t_o_  the  suhrnut  ine 
Co r r_f lag  -  integer. 
Max     -  real  . 
Min     -real. 
Variable-integer. 

Variables  returned  iy_  the  subrout  ine 
None 

Variable  def ini  t ions 

Bottom  -  a  real  variable  equal  to  the  bottom  of  the  plot  in  terms 

of  theXdimension.   The  value  is  slightly  less  than  the 

minimum  value  to  be  plotted. 
Co 2 prod  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  rate  of  CO2  production  parameter  in  the 

respiratory  variable  array. 
Corr_flag  -  an  integer  variable  used  as  a  Boolean  value  which 

indicates  if  the  temperature  corrections  are  used  in 

computing  the  respiratory  flow. 
End time  -  a  real  variable  equal  to  the  ending  time  of  the 


A7.56 

respiratory  results  display. 
Expr_min_vent  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  expi ratory  minute  ventilation  parameter  in 

the  respiratory  variable  array. 
Frc_co2_prod  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  alveolar  CQj    production  parameter  in  the 

respiratory  variable  array. 
Frc_o2_cons  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  alveolar  O2  consumption  parameter  in  the 

respiratory  variable  array. 
HeadingsS  -  a  string  array  of  eleven  elements.   The  elements 

contain  heading  information  of  the  respiratory  parameters. 

The  element  specified  by  Variable  is  used  to  label  the  Y 

axes  of  the  plot. 
Insp_jnin_vent  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  inspiratory  minute  ventilation  parameter 

in  the  respiratory  variable  array. 
Left    -  a  real  variable  equal  to  the  X  value  of  the  left  hand 

side  of  the  data  plots. 
Max    -  a  real  variable  equal  to  the  maximum  value  to  be 

plot  ted  . 
Min     -  a  real  variable  equal  to  the  minimum  value  to  be 

plot  ted  . 
02_cons  -  an  integer  used  as  a  constant  value  which  points  to  the 

computed  rate  of  O2  consumption  parameter  in  the 

respiratory  variable  array. 
Resp_freq  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  respiratory  frequency  parameter  in  the 

respiratory  variable  array. 
Resp_quot ient  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  respiratory  quotient  parameter  in  the 

respiratory  variable  array. 
Right   -  a  real  variable  equal  to  the  X  value  on  the  right  hand 

side  of  the  data  plots. 
Start time  -  a  real  variable  equal  to  the  starting  time  of  the 

respiratory  results  display. 
Top    -  a  real  variable  equal  to  the  top  of  the  plot  in  terms  of 

the  X  dimension.   The  value  is  slightly  greater  than  the 
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maximum  value  to  be  plotted. 
Variable  -  an  integer  variable  which  indicates  which  respiratory 

parameter  is  to  be  plotted. 
Volume of_lung  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  lung  volume  parameter  in  the  respiratory 

variable  array. 
V_tid_expr  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  expiratory  tidal  volume  parameter  in  the 

respiratory  variable  array. 
V_tid insp  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  inspiratory  tidal  volume  parameter  in  the 

respiratory  variable  array. 
X      -  a  real  variable  used  as  a  loop  counter  to  label  the  time 

marks  on  the  X  axes. 
Xtick   -  the  time  mark  spacing  on  the  X  axes. 
Y      -  a  real  variable  used  as  a  loop  counter  to  label  values 

on  the  Y  axes . 
Ytick   -  the  spacing  of  tick  marks  on  the  Y  axes. 

A7 . 6 . 1 0  Max  co2  pntr  Funct i  on 

The  Max_co2_pntr  function  is  used  to  determine  the  end  expirate 
COj  concentration.  The  function  determines  a  pointer  to  the  maximum 
fractional  concentration  of  OOj  during  the  final  stages  of  expiration. 
The  (Xtj  concentration  corresponding  to  this  sample  is  assumed  to  be  the 
end  expirate  sample.  This  subroutine  was  developed  by  Pieschl  [12]  for 
use  with  FRC  calculations. 

Cnnrnnn  blocks  used  Jjjr  the  funct  i  nn 
None 

Va  r  i  a  b  1  e  s  passed  _lq_  the  funct  ion 
A      -integer. 
Linel   -  integer  array. 

Va  r  i  a  b 1 e  def ini  t inns 

A      -  an  integer  variable  used  as  a  pointer  into  the  flow  and 

temperature  data  arrays  during  integration. 
I      -  an  integer  variable  used  as  a  loop  counter. 
Linel   -  an  integer  array,  of  24,000  elements,  containing  the 
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sampled    values    obtained    from   the    COt    channel,     channel    1, 
of   the  DAM. 
Max  -    an    integer    variable    equal     to    the    element    in    the   CO2 

array   determined    to    be    the  maximum  sample. 

A7 . 6 . 1 1      Max   min    Suhrout  ine 

The  Max_min  subroutine  is  used  to  determine  the  maximum  and 
minimum  values  of  a  respiratory  parameter.  The  subroutine  uses  the 
specified  averaging  technique  (breath  averaging  or  window  averaging)  to 
average  the  values  of  the  pa  rame  t  e  r  .  The  max  imum  and  mi  nimum  values 
are    used    to   determine    the    scale    for    a    plot    of    a    respiratory   parameter. 

Corrmon    bl  ocks    used    by    the    subrnut  ine 

Common  Variables    in    the 

M£ii  block 

Anal_data8    -   Resp_var 

Plot_resp_datal    -   Qnit_bad,    Num_breaths,    No_b_avg 

Plot_resp_data2    -    Start_time,    End_t  ime  ,  W_period,  W_jvdth 

Va  r  i  a  h  1  e  s    passed  _Lo_  the    subroutine 

Avg type$    -    string. 

Variable    -    integer. 
Variables   returned  -bx  the   subroutine 
Max  -    real. 

Min  -    real. 

Variable    def ini  t  i  nns 

Average    -    a    real    variable    equal    to    the   average    value   obtained 

from   the    averaging    subroutines. 
Avg_type$     -    a     string     variable    which     indicates     the     type     of 

averaging     technique     used     to     average     the     respiratory 

parameters . 
Br in_w_f  lag    -    an    integer    variable   used   as    a   Boolean    value  which 

indicates     if    breaths    were    found    in    the    specified    time 
window.        This     flag     is    used    when    performing    window 

averaging . 
Br_pntr    -    an   integer   variable   used  as   a  pointer    into   the  breath 

dimension    of    the    respiratory    variable    array.       Br pntr 

points    to    the    first    breath    to   be    included    in    the    average. 
End time     -    a     real     variable    equal     to    the    ending    time    of    the 
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respiratory  results  display. 
Max     -  a  real  variable  equal  to  the  maximum  value  of  the 

respiratory  parameter. 
Min     -  a  real  variable  equal  to  the  minimum  value  of  the 

respiratory  parameter. 
No_b_avg  -  an  integer  variable  equal  to  the  number  of  breaths  to 

average  when  performing  breath  averaging. 
Nurn_bad_breaths  -  an  integer  variable  equal  to  the  number  of  bad 

breaths  that  are  found  in  a  window  of  time  when  using  the 

window  averaging  technique. 
Num_breaths  -  a  real  variable   equal  to  the  number  of  breaths  in 

the  respiratory  variable  array. 
Start_time  -  a  real  variable  equal  to  the  starting  time  of  the 

respiratory  results  display. 
Time    -  a  real  variable  equal  to  the  time  that  is  midway  between 

the  first  breath  included  in  the  average  and  the  last 

breath  included  in  the  average.   The  Time  variable  is  used 

only  as  a  dummy  parameter  when  calling  the  Avg_breath 

subroutine . 
Variable  -  an  integer  variable  which  indicates  which  respiratory 

parameter  is  to  be  plotted. 
W_cntr  -  a  real  variable  equal  to  the  time  of  the  center  of  the 

window. 
W_wdth  -  a  real  variable  equal  to  the  time  width  of  the  window. 

A7.6.12   Plot  values  Subroutine 

The  Plot values  subroutine  generates  a  plot  of  the  respiratory 

parameter.  The  subroutine  uses  the  specified  averaging  technique  to 
determine  the  average  of  the  respiratory  parameter.  The  subroutine 
plots  the  values  on  the  scale  generated  by  the  Make axes  subroutine. 

Corrmon  blocks  used  _b_y_  the  subrout  ine 

Coirmon  Variables  in  the 

Block  block 

Anal_data8  -  Resp_yar 

Plot_resp_datal  -  Cmi  t_bad ,  Num_breaths,  No__b_avg 

Plot_resp_data2  -  Start_time,  End__t  ime  ,  W_period,  W_wdth 
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.  _La  the  . 

Avg typeS  -  string. 

Variable  -  integer. 


Variables 
None 


hv    the  . 


Vai 


i  abl  e    def ini  t  inns 

Average    -    a    real    variable    equal    to    the   average    value   obtained 

from   the    averaging    subroutines. 
Avg type$     -    a     string     variable    which     indicates     the     type     of 

averaging     technique     used     to     average     the     respiratory 

parame  ters . 
Br in_w_f  lag    -    an    integer    variable   used    as    a   Boolean   value  which 

indicates     if    breaths    were    found    in    the    specified    time 
window.        This     flag     is    used    when    performing    window 

averaging . 
Br_pntr    -    an    integer   variable   used  as   a   pointer    into   the   breath 

dimension    of    the    respiratory    variable    array.       Br_pntr 

points    to    the    first    breath    to    be    included    in    the    average. 
End_t  ime     -    a     real     variable    equal     to    the    ending    time    of    the 

respiratory    results    display. 
No_b_avg    -    an    integer    variable    equal    to    the    number   of    breaths    to 

average  when   performing    breath   averaging. 
Num_bad_breaths    -    an    integer    variable    equal    to    the    number    of   bad 

breaths    that    are    found    in    a  window  of    time  when   using    the 

window   averaging    technique. 
Num_breaths    -    a    real    variable      equal    to    the    number    of    breaths    in 

the    respiratory   variable    array. 
Start_time    -    a    real    variable   equal    to   the   starting   time   of   the 

respiratory    results   display. 
Time        -    a    real    variable    equal    to    the    time    that    is  midway   between 

the    first    breath    included    in    the    average    and    the    last 

breath    included    in    the    average.      This   value    is   used   as    the 

time     value     of     the     data     point    when     using     the     breath 

averaging     technique. 
Variable    -    an    integer    variable  which    indicates  which    respiratory 

parameter    is    to   be    plotted. 
W_cntr    -    a    real    variable   equal    to    the    time   of   the   center   of   the 
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window. 

W_period    -    a    real     variable    equal     to    the    period    of   which    the 
window   is    slid. 

A7  . 6 . 1 3      Print    values    Subroutine 

The  Print_values  subroutine  generates  a  printout  of  all  respiratory 
parameters.  The  subroutine  uses  the  specified  averaging  technique  to 
determine    the    average    of    the    respiratory   parameters. 

Corrmon    blocks    used    by    the    subroutine 

Corrmon  Variables    in    the 

Block  block 

Anal_data3    -   Co2_prod,    Insp_min_vent ,   O2__cons,    Time_of_brth 

Anal_data4    -    Expr_min_vent ,   Resp_freq,   V_tid_expr,   V_tid_insp 

Anal_data5    -    Breath_good,    FormfdS  ,    Resp_quot ient 

Anal_data5a    -    Frc_co2_cons  ,    Frc_o2_cons,   Vo  1  ume_of_lung 

Anal_data6    -   Corr_flag,   Room_fh2o,   T 

Anal_data8    -   Resp_var 

Anal_data9    -    Comments,    NameS 

Cal_datal    -    Cal$,    DateS 

Plot_resp_datal    -   Qni  t_bad  ,    Num_breaths  ,    No_b_avg 

Plot_resp_data2    -    Start_time,    End_t  ime ,  W_period,  Wvvdth 

Variables   passed   to   the   subroutine 

Avg_type$    -    string. 
Va  r  i  a  b  I  e  s    returned   _bx  the    subrout  ine 

None 
Variabl  e    def  ini  t.  inns 

Average    -    a    real    variable    equal    to    the   average    value   obtained 

from   the    averaging    subroutines. 
Avg_ typeS     -    a     string     variable    which     indicates     the     type     of 
averaging     technique     used     to     average     the     respiratory 
parameters . 
Br_in_w_flag    -    an    integer    variable   used    as    a   Boolean   value  which 
indicates     if    breaths    were    found    in    the    specified    time 
window.        This     flag     is    used    when    performing    window 
ave  rag  i  ng . 
Br_index    -    an    integer    var i abl e  wh  i ch    is    set    equal    to    the   value    of 
Br_pntr.       Br_index    is    used   when    the   Avg_\vindow   subroutine 


A7.62 

is  called  so  that  the  value  of  Br_pntr  is  not  changed. 
Br_pntr  -  an  integer  variable  used  as  a  pointer  into  the  breath 

dimension  of  the  respiratory  variable  array.   Br_pntr 

points  to  the  first  breath  to  be  included  in  the  average. 
Co2_prod  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  rate  of  CO2  production  parameter  in  the 

respiratory  variable  array. 
Comments  -  a  string  variable  containing  an  operator  specified 

c  omne  n  t . 
Corr_flag  -  an  integer  variable  used  as  a  Boolean  value  which 

indicates  if  the  temperature  corrections  are  used  in 

computing  the  respiratory  flow. 
Date$   -  a  string  variable  containing  the  date  data  were 

col  lee  ted . 
End_t  ime  -  a  real"  variable  equal  to  the  ending  time  of  the 

respiratory  results  display. 
Expr_min_vent  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  expi ratory  minute  ventilation  parameter  in 

the  respiratory  variable  array. 
Frc_co2_prod  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  alveolar  COj    production  parameter  in  the 

respiratory  variable  array. 
Frc_o2_cons  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  alveolar  O2  consumption  parameter  in  the 

respiratory  variable  array. 
1       -  an  integer  variable  used  as  a  loop  counter. 
Insp_min_vent  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  inspiratory  minute  ventilation  parameter 

in  the  respiratory  variable  array. 
NameS   -  a  string  variable  containing  the  subject  name. 
No_b_avg  -  an  integer  variable  equal  to  the  number  of  breath  to 

average  when  performing  breath  averaging. 
Num_bad_breaths  -  an  integer  variable  equal  to  the  number  of  bad 
breaths  that  are  found  in  a  window  of  time  when  using  the 
window  averaging  technique. 
Num_breaths  -  a  real  variable   equal  to  the  number  of  breaths  in 

the  respiratory  variable  array. 
Omit_bad  -  an  integer  variable  used  as  a  Boolean  flag  which 
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indicates  if  the  'bad'  breaths  are  not  to  be  included  in 

the  average. 
O2_cons  -  an  integer  used  as  a  constant  value  which  points  to  the 

computed  rate  of  O^  consumption  parameter  in  the 

respiratory  variable  array. 
Resp_freq  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  respiratory  frequency  parameter  in  the 

respiratory  variable  array. 
Resp_quot i ent  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  respiratory  quotient  parameter  in  the 

respiratory  variable  array. 
Some rs to big  -  an  integer  variable  used  as  a  Boolean  value 

which  indicates  that  some  values  of  the  respiratory 

quotient  average  are  too  large  to  fit  the  print  format. 
Start_time  -  a  real  variable  equal  to  the  starting  time  of  the 

respiratory  results  display. 
Time    -  a  real  variable  equal  to  the  time  that  is  midway  between 

the  first  breath  included  in  the  average  and  the  last 

breath  included  in  the  average. 
Vo  1  ume__of_lung  -  an  integer  used  as  a  constant  value  which  points 

to  the  computed  lung  volume  parameter  in  the  respiratory 

variable  array. 
V_tid_expr  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  expiratory  tidal  volume  parameter  in  the 

respiratory  variable  array. 
V_tid_insp  -  an  integer  used  as  a  constant  value  which  points  to 

the  computed  inspiratory  tidal  volume  parameter  in  the 

respiratory  variable  array. 
W_cntr  -  a  real  variable  equal  to  the  time  of  the  center  of  the 

window. 
W_period  -  a  real  variable  equal  to  the  period  of  which  the 

window  is  slid. 
Wjvdth  -  a  real  variable  equal  to  the  time  width  of  the  window. 
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A7.6.14  Rel  viscos  Function 


The  Rel_viscos  function  calculates  the  viscosity  of  the  flow  gas 
relative  to  the  viscosity  of  room  air  under  STPD  conditions.  The 
concentrations  of  the  flow  gases  and  the  flow  gas  temperature  are  used 
to  determine  the  relative  viscosity. 

CViTTmnn  hi  ocks  used  by  the  suhrnut  i  ne 

None 
Va r  i  a b  1  e s  passed  _Lo_  the  procedure 

Fco2    -  real. 

Fh2o    -  real. 

Fn2     -  real . 

Fo2     -  real . 

Temperature  -  real. 

Va  r  i  a  h 1 e  def ini  t  ions 

Fh2o    -  a  real  variable  equal  to  the  fractional  concentration  of 

water  vapor  in  the  respiratory  flow  gas. 
Fco2    -  a  real  variable  equal  to  the  fractional  concentration  of 

(X>2    in  the  wet  respiratory  gas.   This  concentration  value 

takes  into  account  the  amount  of  water  vapor  in  the 

respiratory  flow  gas. 
Fn2     -  a  real  variable  equal  to  the  fractional  concentration  of 

Nj  in  the  wet  respiratory  gas.   This  concentration  value 

takes  into  account  the  amount  of  water  vapor  in  the 

respiratory  flow  gas. 
Fo2     -  a  real  variable  equal  to  the  fractional  concentration  of 

02  in  the  wet  respiratory  gas.   This  concentration  value 

takes  into  account  the  amount  of  water  vapor  in  the 

respiratory  flow  gas. 
R e  1  _V iscosity  -  a  real  variable  equal  to  the  viscosity  of  the 

respiratory  gas  relative  to  the  viscosity  of  ro  om  a  i  r 

under  STPD  conditions. 
Temperature  -  a  real  variable  equal  to  the  temperature  of  the 

f 1 ow  gas. 
Vis_co2  -  a  real  variable  equal  to  the  viscosity  of  pure  CO2  at 

the  temperature  of  the  flow  gas. 
Vis h2o  -  a  real  variable  equal  to  the  viscosity  of  pure  H2O  at 

the  temperature  of  the  flow  gas. 
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Vis_n2   -  a  real  variable  equal  to  the  viscosity  of  pure  Nj  at 

the  temperature  of  the  flow  gas. 
Vis_o2  -  a  real  variable  equal  to  the  viscosity  of  pure  Oy   at  the 

temperature  of  the  flow  gas. 

A7  .  6  . 1  5  View  Suhrnut  ine 

The  View  subroutine  defines  the  area  of  the  plotting  device  that 

•will  contain  a  plot.   View  considers  the  plotting  device  to  be  an  area 

of  100  by  100.   The  subroutine  operates  similar  to  the  VIEWPORT 

command.   However,  using  the  View  subroutine  allows  plotting  areas  to 

be  defined  independent  of  which  axis  is  is  physically  longer. 

Corrmon  blocks  used  Jul  the  subroutine 
None 

Var  i  ah  I es  passed  to  the  subrout  ine 
Bo  1 1  om  -  real. 
Left    -  real  . 
Right   -  real . 
Top     -  real. 

Variables  returned  ix  the  subroutine 

None 

Variable  def ini  t inns 

Bottom  -  a  real  variable  defining  the  bottom  of  the  plotting  area 

on  the" 100  by  100  plotting  device. 
Left    -  a  real  variable  defining  the  left  side  the  plotting  area 

on  the  100  by  100  plotting  device. 
Right   -  a  real  variable  defining  the  right  side  of  the  plotting 

area  on  the  100  by  100  plotting  device. 
Top     -  a  real  variable  defining  the  top  of  the  plotting  area  on 

the  100  by  100  plotting  device. 
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A7.6.16 


Program  List  ing 


*********************************************************************** 
u«««Kit»«im«n«t»4«,t«tnmmti«tit>«»««t»«««t«««ti«*t<i> 

H!EA3H-BY-BRMIH  RESPIRATORY  ANALYSIS /PLOTTING  ROUTINE 

HP  BASIC  FILENAME:  ANALYSIS 

Department  of  Electrical  and  Computer  Engineering, 
Kansas  State  University 


REVISION 

1.0 
2.0 


DATE 

JUNE  1,  1984 
January  1,  1985 


PROGRAMMER 

LOREN  E.  RIBLETT 

Michael  Masters 


********* 


PURPOSE 

THIS  ROUTINE  PERFORMS  ALL  ANALYSIS  THAT  IS  CURRENTLY 
CONE  ON  THE  RESPIRATORY  DATA.   RESULTS  OF  THIS  ANALYSIS 
ARE  PRESENTED  IN  BOTH  TABULAR  AND  GRAPHICAL  FORMS. 

^t^********************************************************^^**^,.;,. 

NOTE  1 :   THIS  ROUTINE  ASSUMES  THAT  THE  BINARY  CALIBRATION  FILES 
CREATED  BY  "CAPCRUNCH"  ARE  STORED  ON  THE  HP9895A  8" 
FLEXIBLE  DISK  ":HP9895, 700,0"  (VOLUME  #7  IN  THE  PASCAL 
OPERATING  SYSTEM). 

NOTE  2:  ANALYSIS  ASSUMES  THAT  THE  FOUR  BINARY  DATA  FILES  CREATED 
BY  "DAPCRUNCH"  ARE  ALSO  STORED  ON  THE  HP9895A  8"  FLEXIBLE 
DISK  ":HP9895, 700,0"  (TOLUME  #7  IN  THE  PASCAL  OPERATING 
SYSTEM) . 

NOTE  3:   GAS  MASS  SPECTROMETER  TIME  DELAY  VALUES  CAN  BE  DETERMINED 
ON  A  BREATH-BY-BREATH  BASIS  OR  A  FIXED  TIME  DELAY  CAN  BE 
SELECTED  FOR  ANALYSIS  OF  THE  ACQUIRED  DATA.   SHOULD  AN 
EXTREME  BREATH-BY-BREATH  TIME  BE  CALCULATED,  AN  AVERAGE 
TIME  DELAY  IS  SUBSTITUTED  FOR  THE  COMPUTED  TIME  DELAY. 

NOTE  4:   RESPIRATORY  VOLUMES  CAN  BE  CORRECTED  TO  STPD/BTPS  CON- 
DITIONS PROVIDED  THE  BAROMETRIC  PRESSURE  (TORR)  ,  RELATIVE 
HUMIDITY  (%),  AND  BODY  TEMPERATURE  (DEG  C)  IS  SUPPLIED. 
USING  THIS  INFORMATION  ALONG  WITH  POINT-BY-POINT  TEMP- 
ERATURE CORRECTION  (USING  CHANNEL  4,  THE  RESPIRATORY 
TEMPERATURE  CHANNEL),  THE  INSPIRATORY  AND  EXPIRATORY 
GAS  M3LUMES  ARE  CORRECTED. 

NOTE  5 :  ANY  WINDOW  OF  DATA  FROM  THE  DAM  DATA  MAY  BE  PLOTTED 

EITHER  ON  THE  HP9826  CRT  OR  HP9872C  PLOTTER.  ALL  FOUR 
CHANNELS  OF  DATA  ARE  PLOTTED,  THE  C02  AND  02  CHANNELS 
BEING  PLOTTED  WITH  A  TIME  DELAY  EQUAL  TO  THE  AVERAGE 
TIME  DELAY  ENTERED  BY  THE  USER.   DATA  PLOTTED  ON  THE 
HP9826  CRT  MAY  ALSO  BE  DUMPED  TO  THE  HP2673A  THERMAL 
PRINTER. 

NOTE  6:  ONCE  BREATH- BY-BREATH  ANALYSIS  OF  THE  DAM  BEGINS, 

INFORMATION  CONCERNING  EACH  BREATH  IS  PRINTED  ON  THE 
DEOvriter  PRINTER. 

NOTE  7 :   ONCE  THE  DATA  ARRAYS  ARE  EXHAUSTED  SUVMARY  DATA  FOR  THE 
ENTIRE  RUN  IS  COMPUTED  AND  PRINTED.   FILE  NAMES  AS  WELL 
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AS  CRITICAL  CALIBRATION  PARAMETERS  ARE  ALSO  PRINTED. 

*********************************************************************** 

Analysis  enhancements  for  version  2.0 

Note  1:  The  breath-by-breath  results  as  analysis  is  proceding 
may  be  omitted.  The  breath-by-breath  variables  may  be 
plotted  or  printed  post-analysis. 

Note  2:  The  respiratory  flowmay  be  corrected  for  variations  in 
gas  viscosity  and  temperature. 

Note  3:  The  breath-by-breath  variables  of  interest  may  be 
displayed,  printed  or  plotted,  post-analysis.  The 
individual  breath  values  may  be  combined  by  one  of  two 
methods . 

(1)  Breath  Averaging.  The  individual  breath  values 
are  averaged  for  a  specified  number  of  breaths 
(including  averaging  one  breath). 

(2)  Time  Window  averaging.  The  breaths  occurring  in 
a  specified  window  are  averaged. 

Note  4:  The  data  arrays,  calibration  values  are  retained  in  a 
COMVON  area  of  memory.  This  allows  the  data  to  stay 
resident  in  memory  as  various  respiratory  analysis  prog- 
rams are  executed.   It  is  also  a  very  useful  tool  during 
program  debugging. 

Note  5:  Many  of  the  functional  portions  of  the  program  have  been 
transfered  to  true  subroutines.  This  enhances  the  read- 
ability by  building  a  structured  format. 


********* 


************************************ 


Declare   the   comnon  area   of  memory. 

The   respiratory  data 
COM  /Resp_datal/    INTEGER  LinelCl :24000) ,Line2(l :240OO) 
COM  /Resp_data2/   INTEGER  Line3(l :24000) ,Line4( 1 :24000) 
COM  /Resp_data3/   INTEGER  Gnin,Qnax,Cmin,Crnax,Fmin,Emax,Tmin,Tmax 
COM  /Resp_data4/    INTEGER  No_points 
CCM  /Resp_data5/  C1$[10] ,0$[10] ,V$[lO] ,T$[10] 


COM 
COM 
COM 
COM 
COM 
COM 
COM 


COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 
COM 


The  calibration  data 
/Cal_datal/  Cal$[lO] ,Date$[25] 

/Cal_data2/  INTEGER  Co2_dc_of f se t  ,02_dc_of f set  ,Bin_zero_Jlow,S 
/Cal_data3/  REAL  Co2_cal  ,02_cal 

/Cal_data4/  REAL  Non_c_i_f  lowcal  ,Non_c_e_f  lowcal 
/Cal_data5/  REAL  Co rr_i_f  lowcal  ,Corr_e_f  lowcal 
/Cal_data6/  REAL  Ta.Tb.Tc 
/Cal_data7/  REAL  Time_delay  ,01  ,Pb,Rel_humid  ,Room_temp 

The  data  used  by  the  Analysis  routines. 
/Anal_datal/  INTEGER  Data_avai lable 
/Anal_data2/  INTEGER  True, False 

/Anal_data3/  INTEGER  Time_of_brth,02_cons  ,Co2_prod ,  Insp_min_vent 
/Anal_data4/  INTBGER  Expr_min_vent  ,V_t  id_insp,Y_t  id_expr  ,Resp_f  r 
/Anal_data5/  INTEGER  Breath_good,Resp_quot ient ,Formfd$[ 1] 
/Anal_data5a/  INTEGER  Frc_o2__cons  ,Frc_co2_prod  ,Volume_of_lung 
/Anal_data6/  INTEGER  Corr_f  lag, REAL  Roorn_f h2o  ,T 
/Anal_data7/  Vap(0:250)  ,Fh2o_sat  (0:250) 
/Anal_data8/  Resp_var(0: 12,1 :500) 
/Anal_data9/  Name$[25]  ,Carrment$[46] 


eq 
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!***  SPECIAL  FUNCTION  KEY  DECLARATION 

i 

Def  ine_Jieys : ! 

ON  KEY  2  LABEL  "ANALYSIS"  GOSUB  Anal_rout  ine 
ON  KEY  9  LABEL  "     EXIT"  GOTO  Done 
GOTO  Def  ine_Jceys 


***   SIGNAL  END  OF  ROUTINE  AND  RETURN  TO  AUTOST 


Done :OFF  KEY 

DISP  "PROGRAM  RUN  COMPLETE" 
MASS  STORAGE  IS  ": INTERNAL" 
LOAD  "AUTOST",  1 


Anal routine:  ! 

i 

)***  BEGINNING  OF  ANALYSIS  SUBROUTINE 
OFF  KEY  !  Turn  the  SOFT  KEYS  off  . 

INTEGER  Good_insp_count ,Good_exp_count , Insp_begin,Expr_begin 
INTEGER  A,Z,Breath_count,Final_insp 
INTEGER  Found, B_by__b_output  !  Flags 


True=(l=l) 

False=(l=0) 

Formfd$=CHR$(12) 


Declare  all  the  constant  values  and  variable  pointers 

Corresponds  to  a  logical  True  value. 

Logical  False  value. 

The  ASCII  character  for  a  form  feed. 


Declare  the  value  pointers  of  the  respiriratory 

variable  array. 
T  ime_o  f_b  r  t  h=0 
02_c  ons=Time_o  f_br  th+1 
Co2_prod=02_cons+1 
Frc_o2_cons=Co2_prod+l 
Frc_co2_prod=Frc_o2_cons+l 
Insp_rnin_vent=Frc_co2_prod+l 
Expr_min_vent=Insp_min_vent+l 
V_t  id_insp-Expr_min_vent+l 
V_t  i  d_e  xp  r  =V_t  i  d_i  n  s  p+ 1 
Volume_of_lung=Y_tid_expr+l 
Resp_f  req=Volutne_of_lung+l 
Resp_quot  ient=Resp__f  req+1 
Breath_good=Resp_quot ient+1 


BEEP 


GET  SUBJECT  INFORMATION  FOR  PRINTOUTS 


INPUT  "ENTER  THE  SUBJECT'S  NAME  OR  IDENTIFIER"  ,Name$ 

If  data  is  resident  in  memory,  inform  the 

user . 

IF  Data_available  THEN 
PRINT  FormfdS 

PRINT  "Data  is  resident  in  memory." 
PRINT  "     data  file  names    Max    Min" 
PRINT  "      C02:   "&C1S&"    "&VALS(Cmax)&• 
PRINT  "      02:    "&D$&"    "&VAL$(Cmax)&" 
PRINT  "      FLOW:  "&V$&"    "&VAL$(Fmax)&" 
PRINT  "      TEMP:  "&T$&"    "&VAL$(Tmax)&" 
PRINT  "There  are  "&VAL$(No_point  s  )&"  data  points 
PRINT  "Calibration  values" 
IF  Cal$=""  THEN 

PRINT  "   No  calibration  data  is  resident  in  memory" 
ELSE 


"&VAL$(Qnin) 
"&VAL$(Cmin) 
"&VAL$(Fmin) 
"&VALS  (Train) 
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1100 

1105 
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1130  ELSE 

1135 

1140   ! 

1145   ! 

1150 

1155 

1160 

1165 

1170 

1175 

1180 

1185 

1190 

1195 


PRINT 
END  IF 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 


The  CALIBRATION  file  name  is  "SCalS 
Offsets: 


002 
02 

Binary  zero  flow: 


";Co2_dc_offset 
";02_dc_pffset 
";Bin_zero_f  low 
002  cal:  ";Co2_cal;"    02  cal:  ";02_cal 
Non  Corrected  flow  cals" 

Insp.  ";Non_c_i_f  lowcal ;"   Expr  .  ";Non_c_e_f  lowcal 
Corrected  flow  cals" 

Insp.  ";Corr_i_f  lowcal ;"   Expr.  ";Corr_e_f  lowcal 

See  if  the  user  wishes  to  keep  the  present 
calibration  data.   If  not,  enter  the  new  data. 
Q$="N"  !Set  the  default  to  No  (get  new  data) 

BEEP 

INPUT  "DO  'YOU  WISH  TO  USE  THESE  CALIBRATION  DATA?  (Y/N)",QS 
IF  Q$="N"  OR  Q$="n"  THEN 
GOSUB  Rtcal 

PRINT  "New  cal  data  loaded.  B_by_B  data  is  the  same" 
END  IF 

See  if  the  user  wishes  to  keep  the  present 
respiratory  data.   If  not,  enter  the  new  data. 
Q$="N"  !Set  the  default  to  No  (get  new  data) 

BEEP 

INPUT  "CO  YOU  WISH  TO  USE  THESE  B__by_B  DATA?  (Y/N)",Q$ 
IF  Q$="N"  OR  Q$="n"  THEN 

BEEP 

INPUT  "ENTER  THE  TOTAL  NUMBER  OF  POINTS  TO  BE  ANALYZED"  ,No_points 

GOSUB  Rtdata 
END  IF 
PRINT  FormfdS        IClear  the  screen 


!  No  data  is  resident.  Read  in  the  data. 

***  LOAD  BINARY  CALIBRATION  FILE  IF  REQUESTED 
BEEP 

Q$="N"       !  Set  the  default  to  No. 
INPUT  "LOAD  CALIBRATION  FACTORS  FROM  DISK  ?  (Y/N)",Q$ 
IF  Q$="Y"  OR  Q$="y"  THEN  GOSUB  Rtcal 
BEEP 
INPUT  "ENTER  THE  TOTAL  NUMBER  OF  POINTS  TO  BE  ANALYZED"  ,No_points 


***  LOAD  FOUR  CHANNELS  OF  BINARY  DATA 

GOSUB  Rtdata 

Data_available=True        !  Set  the  data  resident  in  memory  flag. 
1200  END  IF 
1205  BEEP 
1210   ! 

1215  !     ^        Set  experimental  time  which  data  collection  began. 
1220  INPUT  "Enter  the  begining  time  of  data  collection.  (sec)",Begt  ime_colct 
1225  ! 

1230  Analyze:! 

1235  !       Enter  a  corrment  to  be  printed  on  the  hard  copy  output. 
1240  BEEP 

1245   INPUT  "ENTER  A  CDVNT  TO  BE  PRNTED  ON  THE  HRD  CPY  OUTPUT.  ".Carmen tS 
1250   !  ***  CH30SE  APPROPRIATE  SAMPLING  FREQUENCY 

1255  S=50 

1260  Q$="N"  !  Set  the  default  to  No. 

1265  BEEP 

1270   INPUT  "CHANGE  SAMPLING  FREQUENCY  FROM  50  HZ.?  (Y/N)",Q$ 
1275   IF  Q$="Y"  OR  Q$="y"  THEN 

1280     INPUT  "ENTER  DESIRED  SAMPLING  FREQUENCY  (HZ.)",S 
1285  END  IF 
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1290 

1295 

1300 

1305 

1310 

1315 

1320 

1325 

1330 

1335 

1340 

1345 

1350 

y_sum 

1355 

1360 

1365 

1370 

1375 

1380 

1385 

1390 

1395 

1400 

1405 

1410 

1415 

1420 

1425 

1430 

1435 

1440 

1445 

1450 

1455 

1460 

1465 

1470 

1475 

1480 

1485 

1490 

1495 

1500 

1505 

1510 

1515 

1520 

1525 

1530 

1535 

1540  ! 

1545 

1550 

1555 

1560 

1565 

1570 

1575 

1580 

1585 

1590 

1595 

1600 

1605 


Q$=" 


***  CHOOSE  B-BY-B  TIME  DELAYS  OR  A  FIXED  CMS  TIME  DELAY 

BEEP 

Q$="F"  !Set  the  default  to  fixed. 

INPUT  "B-BY-B  TIME  DELAY  OR  FIXED  TIME  DELAY  (B/F)  ?",QS 

IF  Q$="B"  OR  Q$="b"  THEN 

'*•  FOR  B-BY-B  DELAYS,  CHOOSE  STARTING  VALUE  FOR  AVERAGE  DELAY 

BEEP 

INPUT  "AVERAGE  TIME  DELAY  FOR  BAD  BREATH  PROBLEMS  (msec )?"  ,Time_dela 

Avg_t  ime_de  1  ay=Time_de  1  ay_sum 

Time_delay_Jlag=l     !Time_delay_f  Iag-1  FOR  B-BY-B  TIME  DELAYS 
ELSE 

***  FOR  FIXED  TIME  DELAY,  ENTER  DESIRED  TIME  DELAY 

Time_delay_flag=0  !Time_delay_f  lag=0  FOR  FIXED  TIME  DELAYS 

PRINT  "CURRENT  TIME  DELAY  IS  "  ;Time_delay ;  "  msec" 

Q$="" 

BEEP 

INPUT  "CHANGE  TIME  DELAY?  (Y/N)",Q$ 

IF  Q$="Y"  OR  Q$="y"  THEN 

INPUT  "ENTER  DESIRED  TIME  DELAY  (msec  .  )",Time_de  lay 

END  IF 
END  IF 
I 

I       See  if  viscosity  and  temperature  corrections  are  desired. 

BEEP 

Q$="" 

INPUT  "USE  TEMP.  AND  VISCOSITY  CORRECTIONS?  (Y/N)",Q$ 

IF  Q$="Y"  OR  Q$-"y"  THEN 

**  IF  STPD/BTPS  DESIRED,  LOAD  IN  WVTER  VAPOR  PRESSURE  TABLE 
Bypass  if  the  vapor  pressures  are  already  present. 
IF  Vap(0)«0  THEN 

DISP  "READING  WVTER  VAPOR  PRESSURES" 

ASSIGN  @Vap_path  TO  "VAP_BASIC:HP9895, 702,3" 

ON  END  aVap_j>ath  GOTO  1520 

ENTER  ®Vap_path;Vap(*) 

ASSIGN  @Vap_path  TO  * 
END  IF 

Corr_f lag=True       !  Set  the  temperatur/viscosi ty  correction  flag. 
IF  Body_temp=0  THEN  Body_temp=(98.6-32)*S/9 

Body_temp=Body_temp*9/5+32       !  Convert  body  temp  to  dee.  F. 
BEEP 

INPUT  "ENTER  THE  BODY  TEMPERATURE  (deg  F)",Body_temp 
Body_temp=(Body_temp-32)*S/9      !  Convert  body  temp  to  deg  C. 

Display  the  ambient  conditions. 
IF  Rocm_temp=0  THEN  Room_temp=(70-32)*S/9 

PRINT  Formfd$,TABXY( 1,15);"     Barometric  pressure  =  ";Pb/25.4 
PRINT  "     Relative  humidity   -  "  ;Rel_humid*100 
PRINT  USING  "K.DCD.ED";"     Room  temperature  =  ";Roam_temp»9/5+32 
BEEP 
Q$="N" 

INPUT  "Do  you  wish  to  use  the  ambient  cond.  above?  (Y/N)",Q$ 
IF  NOT  (Q$="y"  OR  Q$="Y")  THEN 

Pb=Pb/25.4       !  Convert  to  inches  Hg . 

BEEP 

INPUT  "Enter  the  new  barometric  pressure,  (inches)", Pb 

Pb=Pb*25.4       !  Convert  to  torr. 

Re  l_humi  d=Re  l_humi  d  *  1 00 


1610 
1615 
1620 
1625 
1630 
1635 
1640 
1645 
1650 
1655 
1660 
1665 
1670 
1675 
1680 
1685 
1690 
1695 
1700 
1705 
1710 
1715 
1720 
1725 
1730 
1735 
1740 
1745 
1750 
1755 
1760 
1765 
1770 
1775 
1780 
1785 
1790 
1795 
1800 
1805 
1810 
1815 
1820 
1825 
1830 
1835 
1840 
1845 
1850 
1855 
1860 
1865 
1870 
1875 
1880 
1885 
1890 
1895 
1900 
1905 
1910 
1915 
1920 
1925 
1930 
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BEEP 

INPUT  "Enter   the   new  percent    relative  humidty",Rel_Jiumid 

Re  l_humi  d=Re  l_humi  d  / 1 00 

Room_temp=Room_temp*9/5+32       I  Convert  to  deg  F 

BEEP 

INPUT  "Enter  the  new  room  temperature", Room_temp 

Room_temp=(Room_temp-32)*5/9       !  Convert  to  deg  C. 
END  IF 
PRINT  FormfdS 

Generate  the  Fractional  water  vapor  concentration  of  the 
saturated  gas  . 
FOR  1=0  TO  250 

Fh2o_sat(I)=Vap(I)/Pb 
NEXT  I 
j 

! 

Get  the  water  fraction  under  room  conditions  and  the  vapor 
pressure  at  body  temperature,  calculate  STPD  to  BTPS 
conversion  factor  and  use  the  temperature  corrected  flow 
calibration  factors. 
Room_fh2o=Rel_humid*Fh2o_sat((Room_temp-20)*10) 
Ph2o_body=Va  p ( ( Body_t  emp  -  20 ) *  1 0 ) 

Stpd_to_btps=(273.15+Body_temp)/273.1S*760/(Pb-Ph2o_body) 
Btps_to_stpd=l/Stpd_to_btps 
Insp_J'lawcal=Corr_i_f  lowcal 
Ex  p  r_f  1  owe  a  1  =Co  r  r_e_f  1  owe  a  1 
ELSE 

Set  the  correction  flag  to  False.   Set  conversion  factors 
to  unity.  Set  the  flow  calibration  factors  equal  to  the 
non-corrected  calibration  factors. 
Corr_f lag=False 
Stpd_to_btps=l 
Btps_to_stpd=l 

Insp_f  lowcal=Non_c_i_f  lowcal 
Expr_f  1  owca  l=Non_c_e_f  lowca  1 
END  IF 
PRINT  FormfdS       !  Clear  the  screen. 

See  if  FRC  calculations  are  desired.  (FRC  calculations  have  not  been 
fine  tuned  in  this  program.   See  Rick  Pieschl.) 
BEEP 
Q$="" 

INPUT  "Do  you  wish  to  use  FRC  corrections?  (Y/N)",Q$ 
IF  Q$-"Y"  OR  Q$="y"  THEN 

Frc flag=True 

IF  NOT  (Corr_flag)  THEN    IBody  temp,  and  Pb  has  not  been  entered. 
BEEP 

INPUT  "Enter  the  body  temperature  (deg  F)",Body_temp 
Body_temp=(Body__temp-32)*5/9 
Ph2o_body=Vap((Body_temp-20)*10) 
BEEP 

INPUT  "Enter  the  barometric  pressureC inches)", Pb 
Pb=Pb*25.4 
END  IF 

Frac_h2o_body=Ph2o_body/Pb 
ELSE 

Frc_f lag-False 
END  IF 

***  SEE  IF  PLOT  OF  DATA  IS  DESIRED 

Q$-"N" 

BEEP 

INPUT  "WOULD  TOU  LIKE  A  PLOT  OF  THE  DATA?(Y/N)"  ,Q$ 
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1935 
1940 
1945 
1950 
1955 
1960 
1965 
1970 
1975 
1980 
1985 
1990 
1995 
2000 
2005 
2010 
2015 
2020 
2025 
2030 
2035 
2040 
2045 
2050 
2055 
2060 
2065 
2070 
2075 
2080 
2085 
2090 
2095 
2100 
2105 
2110 
2115 
2120 
2125 
2130 
2135 
2140 
2145 
2150 
2155 
2160 
2165 
2170 
2175 
2180 
2185 
2190 
2195 
2200 
2205 
2210 
2215 
2220 
2225 
2230 
2235 
2240 
2245 
2250 
2255 


!***  IF  SO,  GO  PLOT  THE  DATA 
I 

IF  Q$="Y"  OR  Q$="y"  THEN  GOSUB  Dtplot 


!  Get  the  first  and  last  data  points  to  be  analyzed. 

BEEP 

INPUT  "ENTER  STARTING  POINT  TO  ANALYZE.  "  .Start 

IF  Start>No_points-50  THEN  GOTO  1970 

A=Start+l 

Z=Start+l 

BEEP 

INPUT  "ENTER  ENDING  POINT  TO  ANALYZE .", End 

IF  End>No_points  OR  End<Start  THEN  GOTO  1995 
I 

!        See  if  the  breath-by-breath  values  are  to  be  printed  during 
!         analysis. 

PRINT  TABXY(l,18);"Do  you  wish  to  omit  the  breath  by  breath  output  of" 

PRINT  "the  results  as  the  data  is  being  analyzed?  (Y/N)" 

Q$="N" 

BEEP 

INPUT  Q$ 

PRINT  FormfdS 

IF  Q$="N"  OR  Q$="n"  THEN 
B_by_b_ou  t  pu  t=True 

ELSE 

B_by_b_ou  t  pu  t =Fa 1 s  e 

END  IF 
| 

I    ***  INITIALIZE  NECESSARY  ANALYSIS  PARAM. 

IF  01=0  THEN  01=.  11 

T=l/S 

Nurn_breaths=0 

Good_insp_count=0 

Good_exp_count=0 

Time_de  1  ay_cnt=l 

To  t__vo  1 i  n  s  p=0 

To  t_vo  l_e  x  p=0 

To  t_o  2_i  n  s  p=0 

To  t_c  o  2_i  n  s  p=0 

Tot_o2_exp=0 

To  t_c  o  2_e  x  p=0 

Tot_o2_cons=0 

Tot_co2_prod=0 

To  t t  ime__i  ns  p=0 

Tot_t  ime_expr=0 

Lung_vol=.4 

Ne  t lung_chng=0 

1 

1        ***  LOCATE  FIRST  INSPIRATION  IN  FLOW  SIGNAL 

1        ***  The  first  breath  begins  at  point  A  when  the  (A-l)'th  point 
!  is  an  expiratory  flow  and  the  A'th  point  is  an  inspiration. 

REPEAT 

IF  Line3(A-l)-Bin_zero_f low>0  AND  FNInspirat ion((A))  THEN 

Found=True 
ELSE 

Found=False 
A=A+1 
END  IF 
UNTIL  Found 
Ini  t index=A 


GO  PRINT  DATA  TABLE  HEADER  ON  PRINTER  LISTING 
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2260 
2265 
2270 
2275 
2280 
2285 
2290 
2295 
2300 
2305 
2310 
2315 
2320 
2325 
2330 
2335 
2340 
2345 
2350 
2355 
2360 
2365 
2370 
2375 
2380 
2385 
2390 
2395 
2400 
2405 
2410 
2415 
2420 
2425 
2430 
2435 
2440 
2445 
2450 
2455 
2460 
2465 
2470 
2475 
2480 
2485 
2490 
2495 
2500 
2505 
2510 
2515 
2520 
2525 
2530 
2535 
2540 
2545 
2550 
2555 
2560 
2565 
2570 
2575 
2580 


GOSUB  Hard_copy_head 

Breath_count=0 

St ill_calc=True 


Compute  the  breath  by  breath  values.  Repeat  the 
computations  until  the  stopping  point  has  been 
reached. 
REPEAT 

DISP  "Calc.  the  results  of  breath  starting  at", A 

Insp__count=A 

Breath_count=Breath_count+l 

Resp_var(Time_of_brth,Breath_count  )=A*T+Begt  ime_colct 

!  Determine  the  GMS  time  delay. 

IF  Time_delay_flag<>0  THEN      !  Use  the  B-by-B  time  delay. 
GOSUB  Bbb_time_delay 
i 

!         IF  B-BY-B  TINE  DELAY  OUTSIDE  LIMITS,  SUBSTITUTE  AVERAGE  DELAY 
IF  (Time_delay>560)  OR  (Time_delay<330)  THEN 


Time_de  1  ay=Avg_t  ime_de  lay 
Time_de  1  ay_f  1  ag=2 
ELSE 


The  time  delay  was  bad.  *** 


***  The  time  delay  was  good  so  update  the  running  average 
Time_de  lay_f  1  ag=l 

Time_de  1  ay_sum=Time_de  1  ay_sum+Time_de  1  ay 
Time_del  ay_.cn  t-=Time_delay_cnt+l 
Avg_t  ime_de  lay=Time_de  1  ay_sum/Time_de  1  ay_cnt 
END  IF 
END  IF 

***  ADJUST  G02  AND  02  INDEX  (Z)  FOR  PROPER  POINT  SELECTION 
Z=A+INT(Time_delay/1000*S+.5) 

***  COMPUTE  HALF  THE  AREA  FOR  THE  FIRST  TRAPEZOID 
Calc_sig_val(CA),(Z),("INSP"),Incr_vol,Fo2,Fco2) 
Ai  r_i  nsp= .  5*  Inc  r_vo  1 
Co2_insp=.5*Fco2*Incr_vol 
02_insp=.S*Fo2*Incr_vol 

***  Sum  up  the  inspiratory  volumes. 
A=A+1 
Z=Z+1 
REPEAT 

IF  Z>End-50  THEN         !  Exit  if  to  close  to  the  end. 
St i ll_calc-False 
GOTO  Done_calc 
END  IF 

Calc_sig_vaI((A),(Z),(',INSP"),Incr_vol,Fo2,Fco2) 
Ai  r_insp-Ai  r_insp+Incr_vol 
Co2_insp=Co2_insp+Fco2*Incr_vol 
02_insp=02_insp+Fo2*  Inc  r_vo  1 


A=A+1 
Z-Z+l 

UNTIL  NOT  (FNInspiration(A)) 
Insp_time=(A-Insp_count)*T 


**«  LOOP  UNTIL  END  OF  INSPIRATION 
ITime  of  inspiration  in  seconds 
«*«  pup  1/2  OF  THE  LAST  TRAPEZOIDAL  AREA  CORRESPONDING  TO  THE 
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2585 

2590 

2595 

2600 

2605 

2610 

2615 

2620 

2625 

2630 

2635 

2640 

2645 

2650 

2655 

2660 

2665 

2670 

2675 

2680 

2685 

2690 

2695 

2700 

2705 

2710 

2715 

2720 

2725 

2730 

2735 

2740 

2745 

2750 

2755 

2760 

2765 

2770 

2775 

2780 

2785 

2790 

2795 

2800 

2805 

2810 

2815 

2820 

2825 

2830 

2835 

2840 

2845   ! 

2850 

2855 

2860 

2865 

2870 

2875 

2880 

2885 

2890  I 

2895  ! 

2900  ! 

2905  ! 


INSPIRATORY/EXPIRATORY  TRANSITION  ON  THE  INSPIRATION  AND  1/2 

OF  THE  AREA  ON  THE  EXPIRATION 
Calc_sig_val((A),(Z),("INSP"),Incr_vol-,Fo2,Fco2) 

Air insp=Air insp+.5*Incr__yol 

Co2_insp=Co2_insp+.5*Fco2*Incr_vol 
02_insp=02_insp+.5*Fo2*Incr_vol 

Calc_sig_val((A),(Z),("EXPR"),Incr_vol,Fo2,Fco2) 

Air_expr=.5*Incr__vol 

Co2_expr=.5*Fco2*Incr_yol 

02_expr=.5*Fo2*Incr_vol 

Expr_begin=A 


Determine  the  expiratory  tidal  volume  and  expired  002  and 
02  vo 1 ume  s . 


A=A+1 
Z=Z+1 
REPEAT 

IF  Z>End-50  THEN 

Still calc=False 

GOTO  Done_calc 
END  IF 


!  Exit  if  to  close  to  the  end. 


Calc_ji ig_val ( (A) ,  (Z) ,  ( "EXPR") ,  Incr_vol  ,Fo2 ,Fco2) 
Ai  r_expr=Ai  r_expr+Inc  r_vo  1 
Co2_expr=Co2_expr+Fco2* Inc  r_vo 1 
O2_expr=02_expr+Fo2*  Incr_vol 

A-A+l 
Z=Z+1 

**»  LOOP  UNTIL  END  OF  EXPIRATION 
UNTIL  NOT  (FNExpiration(A)) 


•»*  INCLUDE  HALF  OF  THE  TRAPEZOIDAL  AREA  CORRESPONDING  TO  THE 
EXPIRATORY/ INSPIRATORY  TRANSITION. 


Calc_sig__val((A),(Z),("EXPR"),Incr_vol,Fo2,Fco2) 
Ai  r_expr=Ai  r_expr+ . 5* Incr_yol 
Co2_expr=Co2_expr+.S*Fco2*Incr_vol 
02_expr=02_expr+.5*Fo2*Incr_vol 


****************** 


***   BEGIN  CALCULAlTONS  FOR  THIS  PARTICULAR  BREATH  *** 

!  INSPIRATORY  WLUME  FOR  THIS  BREATH  (LITERS) 
Air_insp=Air_insp*Insp_J'lowcal*Stpd__to_btps 


Co2_insp=Co2_insp*Insp_f  lowcal 
02_insp=02_insp*Insp_f  lowcal 


!C02  INSPIRED  FOR  THIS  BREATH  (L) 
!02  INSPIRED  FOR  THIS  BREATH  (L) 


1EXPIRAT0RY  -VOLUME  FOR  THIS  BREATH  (LITERS) 
Ai  r_expr=Ai  r_expr  *Expr_jf  lowca  1  *Stpd_t  o_bt  ps 

Co2_expr=Co2_expr»Expr_flowcal  !C02  EXPIRED  FOR  THIS  BREATH  (L) 

02_expr=02_expr*Expr_J'lowcal  !02  EXPIRED  FOR  THIS  BREATH  (L) 

O2cons=02_insp-t02_expr  ICONSLMED  02  FOR  THIS  BREATH  (L) 

Co2prod=Co2_insp+Co2_expr  !O02  PRODUCED  FOR  THIS  BREATH  (L) 

Num_breaths=Num__breaths  +  l  ITOTAL  NUMBER  OF  BREATHS  ANALYZED 


Start  FRC  corrections.  These  corrections  are  not 
implemented  in  version  2.0.   See  Rick  Pieschl. 
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IF  Frc_flag=True  THEN 

***  (XMPUTE  THE  END  EXPIRATE  VALUES  AND  THEN  COMPUTE 
THE  ALVEOLAR  VALUES,  THE  CHANGE  IN  LUNG  \OLLME, 
AND  THE  LUNG  TOLIME. 
Max_pnt=FNMax_co2_pntr(Linel(*),A) 
Compute  the  dry  aveolar  gas  concentrations  and  then  convert  them 
to  wet  values . 
Frac_co2_l=(Line  1  (Ma)L_pnt )  -Co2_dc_of  f  se  t )  *Co2_ca  I 
Frac_o2_l=(Line2(Max_pnt)-02_dc_offset)*02_cal-t01 
Frac_co2_l=Frac_co2_l*(l-Frac_h2o_body) 
Frac_o2_l=Frac_o2__l  *(  1  -Frac_h2o_body  ) 
IF  Num_breaths>l  THEN 

Chng_f  o2=Frac_o2_l  -Frac_o2_2 
Chng__fco2=Frac_co2_l-Frac_co2_2 


2910 

2915 

2920 

2925 

2930 

2935 

2940 

2945 

2950 

2955 

2960 

2965 

2970 

2975 

2980 

2985 

2990 

prod)*Stpd_to_btps 

2995 

3000 

3005   ! 

3010 

Btps_to_jstpd 

3015 


Compute  the  change  in  lung  volume. 
Chng_lung_vo  1=-Ai  r_insp/(  1 -Frac_h2o_body  )-Ai  r_expr+(02cons+Co2 
itps 

Chng_lung_vol=Chng_lung_vol+Lung_vol*(Chng__fo2+Chng_fco2) 
Chng_lung_vol=Chng_lung_vol/Cl-Frac_o2_l-Frac_co2_l) 

Frc_o2cons=02cons+(Chng_lung_vol*Frac_o2_l+Chng_fo2*Lung_vol  )* 


ol )*Btps_to_stpd 


Frc_co2prod=Co2prod+(Chng_lung_vol  *Frac_co2_l+Chng_fco2*Lung_y 


3020 
3025 
3030 
3035 
3040 
3045 
3050 
3055 
3060 
3065 
3070 
3075 
3080 
3085 
3090 
3095 
3100 
3105 
3110 
3115 
3120 
3125 
3130 
3135 
3140 
3145 
3150 
3155. 
3160 
3165 
3170 
3175 
3180 
3185 
3190 
3195 
3200 
3205 
3210 
3215 


Lung_vo l=Lung_vo 1+Chng_l  ung_vo 1 

END  IF 

Frac_o2_2=Frac_o2_l 

Frac_co2_2=Frac_co2_l 
ELSE 

Frc_o2cons=02cons 

Frc_co2prod=Co2prod 
END  IF 


!TIME  FOR  CURRENT  EXPIRATION  (SECONDS) 


Expr_t  ime=(A-Expr_begin)*T 

Final index=*A 

Final insp=Insp_count 

Tot_t  ime=(Expr_t  ime+Insp_t  ime  )/60 

Compute  and  store  the  breath-by-breath  values 

for  this  breath. 
Resp_var(02_cons  ,Breath__count  )=-02cons/Tot_t  ime 
Resp_var(Co2__prod,Breath_count  )=Co2prod/Tot_t  ime 
Resp_var(  Insp_jnin_vent  ,Breath_count  ;=-Air_insp/Tot_t  ime 
Resp_var(Expr_min_vent  ,Breath_count  )=Air_expr/Tot_t  ime 
Resp_var(V_tid_insp,Breath_count)=-Air_insp 
Resp_var(V_t id_expr ,Breath_count)=Air_expr 
Resp_var(Resp_freq,Breath_count  )=l/(Insp_t  ime+Expr_t  ime )*60 
Resp_var(Resp_quot ient ,Breath_count )=ABS(Co2prod/02cons ) 
Resp_var(Frc_o2_cons,Breath_count)=-Frc_o2cons/Tot_time 
Resp_var(Frc_co2_prod,Breath_count  )=Frc_co2prod/Tot_t  ime 
Re  s  p_va  r  (Vo  1  ume_o  f_l  ung ,  Br  e  a  t  h_c  oun  t  )=Lung_vo  1 

IF  B_by_b_output  THEN 
! 

!  **»  qo  pRINT  CALCULATED  VALUES  FOR  THIS  BREATH 

GOSUB  Hard_output 
END  IF 
] 

!***  KEEP  TRACK  OF  GOOD  INSPIRATIONS  AND  EXPIRATIONS 
IF  ABS(Air_insp)>.4  AND  ABS(Ai  r_expr)s.4  THEN 

Resp_var(Breath_good,Breath__count  )=True 
ELSE 

Resp_var(Breath_good,Breath_count )=False 
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3220 
3225 
3230 
3235 
3240 
3245 
3250 
3255 
3260 
3265 
3270 
3275 
3280 
3285 
3290 
3295 
3300 
3305 
3310 
3315 
3320 
3325 
3330 
3335 
3340 
3345 
3350 
3355 
3360 
3365 
3370 
3375 
3380 
3385 
3390 
3395 
3400 
3405 
3410 
3415 
3420 
3425 
3430 
3435 
3440 
3445 
3450 
3455 
3460 
3465 
3470 
3475 
3480 
3485 
3490 
3495 
3500 
3505 
3510 
3515 
3520 
3525 
3530 
3535 
3540 


END  IF 
j 

IF  ABS(Air_insp)>.4  THEN 

Good_insp_count=Good_insp_count+l 
END  IF 
IF  ABS(Air_expr)>.4  THEN 

Good_exp_count=Good_exp_count+l 
END  IF 
j 

!  ***  ADJUST  RUNNING  TOTAL  VALUES  FOR  ENTIRE  TRIAL 

Tot_vol_insp=Tot_vol insp+Air_insp 

Tot_vol_exp=Tot_vol_exp+Air_expr 

To  t_o2_i  nsp=To  t_o2_i  nsp-t02_i  nsp 

To  t_o2_e  xp=To  t_o  2_e  xp+02_e  xp  r 

Tot_co2_insp=Tot_co2_insp+Co2_insp 

Tot__co2_exp-Tot_co2_exp+Co2_expr 

Tot_o2_cons=Tot_o2_cons-t02cons 

Tot_co2_prod=Tot_co2_prod+Co2prod 

Tot_t  ime_insp=Tot_t  ime_insp+Insp_t  ime 

Tot_t  ime_expr=Tot_t  ime_expr+Expr_t  ime 
i 

R=  -To  t_c  o2__pr  od/To  t_o2_cons 
Done_calc:    !     Keep  repeating  until  the  end  has  been  reached. 
UNTIL  Still_calc=False 
Breath_count=Breath__count-l 
DISP 


************************ 


****************************************** 


AVERAGE  EXPIRATORY  VOLUME  (L) 
IRESP.  FREQUENCY  (BREATHS/MIN) 
IAVERAGE  INSPIRED  02/BRFATH  (L) 
IAVERAGE  EXPIRED  02/BREATH  (L) 
iAVERAGE  INSPIRED  C02/BREATH  (L) 
IAVERAGE  EXPIRED  002/BREATH  (L) 
[AVERAGE  02  CONSUMED/BREATH  (L) 


OOMPUTE  FINAL  TRIAL  AVERAGES 

Tot_time_resp=(Final_index-Init_index)*T  ! TOTAL  RESPIRATORY  TIME  (SEC) 

Minvoli=Tot_vol_insp*60/Tot_time_resp    IINSP.  MINUTE  VOLUME  (L/MIN) 

Minvole=Tot_vol_exp*60/Tot_time_resp     !EXP.  MINUTE  VOLUME  (L/MIN) 

Num_breaths=(Good_insp_count+Good_exp_count)/2 

Avg_air_insp=Tot__vol_insp/Num_breaths   IAVERAGE  INSPIRATORY  VOLUME  (L) 

Avg_air_expr=Tot_vo]_exp/Num_breaths 

Respf=Num_breaths*60/Tot_t  ime_resp 

Avg_o2_insp=Tot_o2_insp/Num_breaths 

Avg_o2_expr=Tot_o2_exp/Num_breaths 

Avg_c  o  2_i  n  s  p-To  t_c  o  2_i  n  s  p  /Num_b  r  e  a  t  h  s 

Avg_co2_expT=Tot_co2_exp/Num_breaths 

Avo2cons=Tot_o2_cons/Num_breaths 

Avco2prod=Tot_co2_prod/Num_breaths 

V_dot_o2=Tot_o2_cons/Tot_t  ime_resp*60 

V_dot_co2=Tot_co2_prod/'.ot_t  ime_resp*60 

R=ABS(V_dot_co2ALdot_o2) 

*  GO  PRINT  MEAN  VALUES 

PRINTER  IS  9 
GOSUB  Means 
PRINTER  IS  1 
i 

6$-- 

BEEP 

INPUT  "DISPLAY  THE  BREATH -BY -BREATH  DATA?  (Y/N)",Q$ 

IF  Q$-"Y"  OR  Q$="y"  THEN 

CALL  Disp_results(Breath_count  ,Corr_f  lag) 
END  IF 

I 

BEEP 

0$="" 

INPUT  "REDO  ANALYSIS?  (Y/N)",Q$ 

IF  0$='Y"  OR  QS="y"  THEN  GOTO  Analyze 
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3545  ! 

3550  !***  END  OF  ANALYSIS  ROUTINE 

3555  ! 

3560  RETURN  !  Exit  the  Analysis  portion. 

3565  ! 

3570  !***  SUBROUTINE  TO  PRINT  STANDARD  HEADER  TO  THE  DEOwriter  II  PRINTER 

3575  ! 

3580  Hard_copy_head:PRINTER  IS  9 

3585  A$="Air" 

3590  B$="02" 

3595  C$="002" 

3600  D$="Inspired" 

3605  E$="Expired" 

3610  F$="(liters)" 

3615  G$="BTPS" 

3620  H$="STPD" 

3625  PRINT  USING  "2/, K"; "SUBJECT  IDENTIFIER:   "&Name$ 

3630  PRINT  USING  "2/ ,K";"DATE:      "&Date$ 

3635  PRINT  USING  "/,K, 2/"; "COVMENT:   "&Carrment$ 

3640  IF  B_by_b_output  THEN 

3645     PRINT  USING  "#,2X,K,5X,K,7X,K,  8X,K,8X,K,7X,K" ;  "Breath"  ;AS;AS  ;B$;BS  :C 

$ 

3650     PRINT  USING  "#,7X,K,8X,K,7X,K,7X,K,6X,K,5X,K"  ;C$  ;B$  ;C$  ;  "Insp"  ;"Expr" 

;  "Del ay" 

3655     PRINT 

3660     PRINT  USING  "#,2X,K,4X,K,2X,K,3X,K,2X,K"  ;  "Start "  ;D$  ;E$  ;D$  ;ES 

3665     PRINT  USING  "#,3X,K,2X,K,3X,K,2X,K" ;D$ ;E$ ; "Consumed" ; "Produced" 

3670     PRINT  USING  "#,4X,K,6X,K,6X,K"  ;  "TIME"  ;  "TIME";  "TIlvE" 

3675     PRINT 

3680     PRINT  USING  "#,2X,K,4X,K,2X,K,2X,K,2X,K,2X,K";"Index"  ;F$  ;F$;F$  ;F$;F$ 

3685     PRINT  USING  "#,2X,K,2X,K,2X,K,3X,K,5X,K,5X,K";F$  ;F$  ;F$  ;  "(sec)"  ;  "(sec 

)";"(msec)" 

3690     PRINT 

3695     IF  Corr_flag  THEN 

3700        PRINT  USING  "#,  13X,K,6X,K,6X,K,6X,K,6X,K"  ;G$  ;G$  ;H$  ;H$  ;H$ 

3705        PRINT  USING  "#,6X,K,6X,K,6X,K"  ;H$  ;H$  ;H$ 

3710        PRINT 

3715     END  IF 

3720     PRINT  USING  "120(  ""-"")" 

3725  END  IF 

3730  PRINTER  IS  1 

3735  RETURN 

3740  ! 

3745  !***  SUBROUTINE  TO  PRINT  A  SINGLE  LINE  OF  BREATH -BY -BREATH  INFORMATION 

3750  ! 

3755  Hard_output :  ! 

3760  PRINTER  IS  9 

3765  !  PRINT  USING  "#,70X,K,18X,K";"  I  ";"l" 

3770  PRINT 

3775  PRINT  USING  "#,2X,EOID"  ;  Insp_count 

3780  PRINT  USING  "#,5X,DD.rXD,  3(4X,ED.OD)";Ai  r_insp;Ai  r_expr  ;02_insp;02_expr 

3785  PRINT  USING  "#,4X,D.TXD,5X,D.EID,3X,K,  1X.D.TXD"  ;Co2_insp;Co2_expr  ;"  I  ";0 

2cons 

3790  PRINT  USING  "#,5X,D.  LCD,  2X,K";Co2prod  ;  "  I" 

3795  PRINT  USING  "#,3X,D.ED,6X,D.DD" ;  Insp_t  ime  ;Expr_t  ime 

3800  IF  Time_delay_f  lag<>2  THEN  PRINT  USING  "#,6X,HD";Time_delay 

3805  IF  Time_delay_flag=2  THEN  PRINT  USING  "#,4X,K,HD,K" ;  "«*";Time  delay:"* 

3810  PRINT 

3815  PRINTER  IS  1 

3820  RETURN 

3825  ! 

3830  !»»*   SUBROUTINE  TO  PRINT  TRIAL  AVERAGE  VALUE   INFORMCTION 

3835  ! 

3840  Means:   ! 
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3845  PRINT 

3850  PRINT 

3855  PRINT  "      Sunmary  data  and  average  values" 

3860  PRINT 

3865  PRINT  "  Data  Point   Time  (sec)" 

3870  An_pnts:IM«iGE  K,5D,K,3D.ED 

3875     Temporary=(Start-l)*T+Begtime_colct 

3880     PRINT  USING  An_pnts;"Beginning    analysis    point:    ".Start,"  ",Temp 

orary 

3885  Temporary=(  Ini  t_index-l)*T+Begt  ime_colct 

3890  PRINT  USING  An_pnts; "The  first  inspiration:    ",Init_index," 

.Temporary 

3895  Temporary=(Final_insp-l)*T+Begt  ime_colct 

3900  PRINT  USING  An_pnts;"The  last  inspiration:     ",Final_insp," 

.Temporary 

3905  Temporary=(End-l)*T+Begtime_colct 

3910  PRINT  USING  An_pnts ; "Ending  analysis  point:    ".End,"        ".Tempor 

ary 

3915  PRINT 

3920  PRINT 

3925  IF  NOT  (Corr_flag)  THEN 

3930     H$="" 

3935     G$="" 

3940  END  IF 

3945  PRINT  USING  "2/ ,#,K,4D.D"; "Inspi ratory  minute  volume  =  ";Minvoli 

3950  PRINT  USING  "K.4A";"  liters  per  minute  ",G$ 

3955  PRINT  USING  "/ ,#,K, 3D. D"; "Expi ratory  minute  volume  =  ";Minvole 

3960  PRINT  USING  "K.4A";"  liters  per  minute  ",G$ 

3965  PRINT  USING  "/ ,#,K,3D.3D";"02  consumed  per  minute  -  ";V_dot_o2 

3970  PRINT  USING  "K.4A";"  liters  per  minute  ",H$ 

3975  PRINT  USING  "/ ,#,K,3D.3D";"C02  produced  per  minute  =";V_dot_co2 

3980  PRINT  USING  "K.4A";"  liters  per  minute  ",H$ 

3985  PRINT  USING  "/ .K.TXD.  3D"; "RESPIRATORY  QUOTIENT  =  "  ;R 

3990  PRINT  USING  "2/ ,K,DDD.4D,K,4A";"Inspi ratory  tidal  volume  =  ";Avg_air_in 

sp;"  liters  ",G$ 

3995  PRINT  USING  "/ ,K,DDD.4D,K,4A" ; "Expiratory  tidal  volume  =  ";Avg_air_expr 

;"  liters  ",G$ 

4000  PRINT  USING  "/ .K.DDDD.D.K"; "Respi ratory  frequency  =  ";Respf;"  breaths  p 

er  minute" 

4005  PRINT  USING  "/ ,K,DDD.3D,K,4A" ; "Mean  02  inspired  =  " ;Avg_o2_insp; "  liter 

s  ",H$ 

4010  PRINT  USING  "/ ,K,DDD.3D,K,4A" ; "Mean  02  expired  =  ";Avg_o2_expr;"  liters 

",H$ 
4015  PRINT  USING  "/ ,K,DDD.3D,K,4A" ; "Mean  C02  inspired  -  ";Avg_co2_insp;"  lit 
ers  ",H$ 

4020  PRINT  USING  "/  .K.DTD.  JD,K,4A";"Mean  002  expired  =  ";Avg_co2_expr;"  lite 
rs  ",H$ 

4025  PRINT  USING  "/ ,K,TXD.3D,K,4A";  "Mean  02  consumed  per  breath  =  ";Avo2cons 
; "  liters  "  ,H$ 

4030  PRINT  USING  "/ ,K,DED.3D,K,4A"; "Mean  C02  produced  per  breath  =";Avco2pro 
d;"  liters  ",H$ 
4035_  PRINT  USING  "/ ,K,3D.D,K";"Total  time  of  inspiration  •  ";Tot_t  ime_insp;" 

4040  PRINT  USING  "/ ,K,3D.D,K"; 'Total  time  of  expiration  =  ";Tot_time_expr;" 

sec" 

4045  PRINT  USING  "/ ,K,3D.D,K" ; 'Total  time  of  respiration  =  ";Tot_t  ime_resp;" 

sec" 

4050  PRINT  USING  "/ ,K, 3D. D" ;  "Number  of  good  inspirations  =  "  ;Good_insp_count 

4055  PRINT  USING  "/ ,K, 3D. D"; "Number  of  good  expirations  =  ";Good_exp_count 

4060  PRINT  USING  "/ ,K, 3D. D"  ;  "Number  of  good  breaths  >  ";Num_breaths 

4065  PRINT  USING  "3/" 

4070  PRINT  "     Calibration  data  and  File  names" 

4075  IF  Corr_flag  THEN 

4080     PRINT  USING  "2/,#,K" ; "The  flow  signal  -was  incrementally  corrected  " 
4085     PRINT  "for  changes  in  gas" 
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PRINT  "temperature  and  viscosity." 
PRINT  US ING  '7,K,DD.D,K";"Relative  Humidity 
/,K,ED.ED,K";"Body  Temperature 
/,K,ED.H>,K,ID.3D,K";"PH20  at  ' 


PRINT  USING 
PRINT  USING 
;"  torr" 
PRINT  USING 


"/,K,3D.H),K";"Barametric  Pressure  -  ";Pb;"  torr" 
PRINT  USING  "/,K,3D.DD,K";"Room  temperature  =  ";Room_temp;"  deg  C" 
END  IF 

"/,K,4D"; "FLOW  DC  OFFSET  =  " ;Bin_jero_f  low 
"/,K,4D";"0)2  DC  OFFSET  =  " ;Co2_dc_of f set 
"/,K,4D";"02  DC  OFFSET  =  ";02_dc_offset 
"/,K,D.4DE";"C02  CALIBRATION  FACTOR  =  ";Co2_cal 
"/,K,D.4DE";"02  CALIBRATION  FACTOR  -  ";02__cal 
"/,K";"THE  NON  CORRECTED  FLOW  CALIBRATION  FACTORS" 
"/,#,K";"      INSPIRATORY  FLOW  CALIBRATION  FACTOR  -  " 
'TJ.  4DE"  ;Nou_c_i_f  lowca  1 

"/,#,K";"      EXPIRATORY  FLOV  CALIBRATION  FACTOR  =  " 
;Non_c_e_f  lowca  1 

"THE  TEMPERATURE  CORRECTED  FLOW  CALIBRATION  FACTORS" 
;"      INSPIRATORY  F1XW  CALIBRATION  FACTOR  =  " 

;Corr_i f  lowca  1 

EXPIRATORY  FLOV  CALIBRATION  FACTOR  =  " 


PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING  "D.4DE 
PRINT  USING  "2/,K" 
PRINT  USING  "/,#,K 
PRINT  USING  "D.4DE 
PRINT  USING  "/,#,K 


PRINT  USING  "D.4DE,/";Corr_e_flowcal 

PRINT  USING  'V,#,K,ND.4DE,K";'TEMPERATURE  CORRECTION 

PRINT  USING  "#,K,MD.4DE,K";"+  ";Tb;"X  " 

PRINT  USING  "K,MD.4DE";"+  ";Tc 

PRINT  USING  "/,K, LTD";  "SAMPLING  FREQUENCY  =";S 
/,K"; "FLOW  CALIBRATION  FILENAME: 
/,K";"C02  DATA  FILENAME:  "&C1S 
/,K";"02  DATA  FILENAME:   "SOS 

"FLOW  DATA  F I LENAME :   "&V$ 
"TEMPERATURE  DATA  FILENAME: 


"/,K"; 
V,K": 


4090 

4095 

4100 

4105 

h2o_body 

4110 

4115 

4120 

4125 

4130 

4135 

4140 

4145 

4150 

4155 

4160 

4165 

4170 

4175 

4180 

4185 

4190 

41951 

4200 

4205 

4210 

4215 

4220 

4225 

4230 

4235 

4240 

4245 

4250 

4255 

4260 

4265 

4270  Dtplot:PRINT  FormfdS;" 

4275  PRINT  USING  "3/, K,5D,K 

4280 

4285 

4290 

4295 

4300 

4305 

4310 

4315 

4320 

4325 

4330 

4335 

4340 

4345 

4350 

4355 

4360 

4365 

4370 

4375 

4380 

4385 

4390 

4395 

4400 

4405 


-  ";Rel_liumid*100;"%" 
=  " ; Body_t  emp ; "  deg  C" 
;Body_temp;"  deg  C  =  ";P 


;Ta;"X"2 


PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINT  USING 
PRINTER  IS 
RETURN 


"<£Ca  1  $ 


"&T$ 


SUBROUTINE  TO  PLOT  OUT  THE  FOUR  BINARY  DATA  SETS 


"THERE  ARE 


DATA  PLOTTING  ROUTINE" 
";No_points;"  DATA  POINTS  AVAILABLE" 


!»**  OBTAIN  STARTING  AND  ENDING  POINTS  TO  PLOT 
I 

BEEP 

INPUT  "ENTER  STARTING  POINT  TO  PLOT. ".Start 

IF  Start<l  OR  Start>No_points  THEN  GOTO  4300 

BEEP 

INPUT  "ENTER  ENDING  POINT  TO  PLOT.",End 

IF  End<-Start  OR  End>No_points  THEN  GOTO  4315 
i 

!***  COMPUTER  NUMBER  OF  POINTS  TO  PROCESS 
| 

P=End-Start+l 
I 

!  *  *  *  COMPUTE  PLOTTING  OFFSET  FOR  MASS   SPECTROMETER  DELAYS 
| 

6ffset-INT(Time_delay/1000*S) 
I 

!  ***  DETERMINE  MAXIMM  AND  MINIMLM  VALUES  FOR  THE  PLOTTED  POINTS 
I 

Cmax=Linel(Start) 
Qnin=Linel (Start) 
Qnax=Line2( Start ) 
Qnin=Line2(Start) 
Fmax=Line3(Start) 
Fmin-Line3(Start ) 
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**  DISPLAY  THE  MVXIMM  AND  MINIMA!  VALUES  ON  THE  CRT 


*  *  * 


ADJUST  MAXIMA!  AND  MINIMA!  PLOTTING  VALUES  FOR  SMALL   INPUT  CHANGES 


4410  Tmax=Line4(Start) 

4415  Tmin=Line4(Start) 

4420  FOR  A=Start+l  TO  End 

4425  IF  Qnax<Linel(A)  THEN  Cmax=Linel(A) 

4430  IF  Ctaln>Linel(A)  THEN  Cmin=Linel(A) 

4435  IF  Qnax<Line2(A)  THEN  Qnax=Line2(A) 

4440  IF  Crnin>Line2(A)  THEN  Qnin=Line2(A) 

4445  IF  Fmax<Line3(A)  THEN  Fmax-Line3(A) 

4450  IF  Fmin>Line3(A)  THEN  Fmin=Line3(A) 

4455  IF  Tmax<Line4(A)  THEN  Trnax=Line4(A) 

4460  IF  Thiin>Line4(A)  THEN  Ttain=Line4(A) 

4465  NEXT  A 

4470 

4475 

4480 

4485  DISP 

4490  PRINT 

4495  PRINT  "CD2  MAX:  ";Qnax;TAB(25)  ;"C02  MIN:  ";Qnin 

4500  PRINT 

4505  PRINT  "02  MAX:  "  ;Qmx;TAB(25)  ;"02  MIN:  ";Qnin 

4510  PRINT 

4515  PRINT  "FLOVMAX:  "  ;Fmax;TAB(25) ;  "FLCWMIN:  ";Fmin 

4520  PRINT 

4525  PRINT  "TEMP  MAX:  "  ;Tmax  ;TAB(25)  ;"TEMP  MIN:  ";Tmin 

4530 

4535 

4540 

4545  IF  Fmax-Fmin<=100  THEN 

4550  Fmax-4095 

4555  Fmin=0 

4560  END  IF 

4565  IF  Qnax-Gnin<=100  THEN 

4570  Cmax=4095 

4575  Cmin=0 

4580  END  IF 

4585  IF  Qnax-Qnin<=100  THEN 

4590  Ctaax=4095 

4595  Cmin-0 

4600  END  IF 

4605  IF  Tmax-Tmin<=100  THEN 

4610  Tmax-4095 

4615  Tmin=0 

4620  END  IF 

4625 

4630 

4635 

4640 

4645  IF   (Ta=0)  AND  (Tc-0)  THEN 

4650  Ta-0 

4655  Tc=0 

4660  Tb=l 

4665  END  IF 

4670 

4675 

4680 

4685  BEEP 

4690  ON  KBD,  15  GOTO  Sel_plt_dev 

4695  PRINT 

4700  PRINT 

4705  PRINT  "You  have  20  seconds  to  select  a  PLOTTING  device." 

4710  PRINT  "If  you  do  not  select  a  device  in  that  time,  the" 

4715  PRINT  "CRT  will  automatically  be  selected.  To  select" 

4720  PRINT  "a  device  press  the  space  bar." 

4725  FOR  1=1  TO  100000 

4730  !                    This  loop  delays  approximately  20  seconds. 


IF  NO  TEMPERATURE  CALIBRATION  DATA  IS  AVAILABLE,  ONLY  PLOT  BINARY 
TEMPERATURE  DAIA 


ALLCWUSER  TO  SELECT  PLOTTING  DEVICE 


SET  SYSTEM  PC*  HP9872C  PLOTTER 


INITIALZE  GRAPHICS  SYSTEM 
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4735  NEXT  I 

4740  OFF  KBD 

4745  QS="CRT" 

4750  GOTO  4795  !   Skip  and  use  the  CRT. 

4755  ! 

4760  ! 

4765  Sel_plt_dev:OFF  KBD       !       Allow  the  user   to   select    the   plotting  device. 

4770  Q$="" 

4775  BEEP 

4780  INPUT  "OUTPUT  ON  PLOTTER  OR  CRT  ?   ( PLOTTER  /CRT  )",Q$ 

4785  ! 

4790  ! 

4795  IF  Q$="PLOTTER"  THEN 

4800 

4805 

4810 

4815  PLOTTER   IS   705,"HPGL" 

4820  PRINTER   IS   705 

4825  PRINT  "VSS;" 

4830     PRINTER  IS  1 

4835  ELSE 

4840     PLOTTER  IS  3,  "INTERNAL" 

4845     DLMP  DEVICE  IS  701 

4850  END  IF 

4855 

4860 

4865 

4870  GRAPHICS  ON 

4875  GCLEAR 

4880  PRINT  FormfdS 

4885  PEN  1 

4890  DBG  !  SET  DEGREES  MXE 

4895 

4900 

4905 

4910  View(0, 100,4,24) 

4915  Ctmin=Ta*Tmin~2+Tb*Tmin+Tc 

4920  Ctmax-Ta»Tmax-2+Tb*Tmax+Tc 

4925  Left=-P*.13 

4930  Right=P 

4935  WINDOW  Left,  Right  ,Ctmin,Ctmax 

4940  CLIP  0, Right  .Ctmin.Ctmax 

4945  LINE  TYPE  1      !  SET  FOR  SOLID  LINE 

4950  CSIZE  2.8 

4955  LDIR  0 

4960  LORG  2     !SET  LABEL  ORIGIN  TO  POSITION  8 

4965  AXES  P/20,  (Ctmax-Ctmin)/10,0,Ctmin 

4970  CLIP  Left, Right, Ctmin.Ctmax 

4975  IF  (Ctmin=Tmin)  AND  (Ctmax=Tmax)  THEN  5015 

4980  Incr-(Ctmax-Ctmin)/5 

4985  LORG  8 

4990  FOR  I=Ctmin+Incr  TO  1 .001*(Ctmax-Incr)  STEP  Incr 

4995     MDVE  0,1 

5000     LABEL  USING  5005;  I 

5005     IMAGE  ZZ.D,"  " 

5010  NEXT  I 

5015  CSIZE  3.3 

5020  M3VE  l,Ta*Line4(Start)-2+Tb«Line4(Start)+Tc 

5025  PEN  2 

5030  FOR  I=Start  TO  End 

5035     Temp=Ta*Line4( I )«Line4( I )+Tb*Line4( I )+Tc 

5040     PLOT  I-Start+l,Temp 

5045  NEXT  I 

5050  PENUP 

5055  PEN  1 


PLOT  THE  TEMPERATURE  DATA  ARRAY 
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5060 
5065 
5070 
5075 
5080 
5085 
5090 
5095 
5100 
5105 
5110 
5115 
5120 
5125 
5130 
5135 
5140 
5145 
5150 
5155 
5160 
5165 
5170 
5175 
5180 
5185 
5190 
5195 
5200 
5205 
5210 
5215 
5220 
5225 
5230 
5235 
5240 
5245 
5250 
5255 
5260 
5265 
5270 
5275 
5280 
5285 
5290 
5295 
5300 
5305 
5310 
5315 
5320 
5325 
5330 
5335 
5340 
5345 
5350 
5355 
5360 
5365 
5370 
5375 
5380 


CSIZE  2.5 
LINE  TYPE  1 

*  LABEL  THE  TEMPERATURE  PLOT 

M3VE  Left,(Ctmin+Ctmax)/2 

LORG  6 

LDIR  90 

LABEL  "FLOW  TEMP" 

MOVE  Left*.85,(Ctmin+Ctmax)/2 

LABEL  "DEGREES  C" 

View(0,100,24,28) 

WINDOW  0,10,0,10 

MJVE  2,10 

LDIR  0 

LORG  3 

LABEL  "START  POINT  ="&VAL$(Start  )&"     END  POINT  =   "&VAL$(End) 

M3VE   10,10 

LORG  9 

LABEL  "1  TICK  =" ;DROJND(P/(20*S) ,3) ; "  SECONDS   " 

*  PLOT  THE  FLCW  DATA  ARRAY 

View(0,100,28,48) 

WINDCW  Left .Right ,Fmin*l .02, Fmax*l .02 

LINE  TYPE  1 

CLIP  0, Right, Fmin.Fmax 

AXES  P/20,(Fmax-finin)/10,0,Bin_jzero_flow 

CLIP  Lef t, Right , Fmin.Fmax 

IF  NOT  (Non_c_i_flowcal-0)  THEN 

CSIZE  2.8 

LORG  8 

IMAGE  EDO. ED,"  " 

Incr=(Fmax-Fmin)/5 

Label  the  expiratory  flow  axis 

FOR  I=Bin_zero_flowTO  Fmax  STEP  Incr 

M3VE  0,1 

LABEL  USING  5220;  ( I  -Bin_/ero_f  1  ow) *Non_c_e_f  lowca  1 
NEXT  I 
j 

!   Label  the  inspiratory  flow 

FOR  I=Bin_jero_f low-Incr  TO  Fmin  STEP  -Incr 
M3VE  0,1 
LABEL  USIKJ  5220;  ( I -Bin__zero_f  low)*Non_c_i_f  lowcal 

NEXT  I 
END  IF 
CSIZE  3.3 

M3VE  l,Line3(Start) 
PEN  2 
FOR  I=Start  TO  End 

PLOT  I-Start+l,Line3(I) 
NEXT  I 
PENUP 
PEN  1 

LINE  TYPE  1 
CSIZE  2.5 

*  LABEL  THE  FLOW  PLOT 

MOVE  Left,(Fmax+Fmin)/2 

LORG  6 

LDIR  90 

LABEL  "FLCW  [L/S]" 
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5385 
5390 
5395 
5400 
5405 
5410 
5415 
5420 
5425 
5430 
5435 
5440 
5445 
5450 
5455 
5460 
5465 
5470 
5475 
5480 
5485 
5490 
5495 
5500 
5505 
5510 
5515 
5520 
5525 
5530 
5535 
5540 
5545 
5550 
5555 
5560 
5565 
5570 
5575 
5580 
5585 
5590 
5595 
5600 
5605 
5610 
5615 
5620 
5625 
5630 
5635 
5640 
5645 
5650 
5655 
5660 
5665 
5670 
5675 
5680 
5685 
5690 
5695 
5700 
5705 


***  PLOT  the  02  DATA  ARRAY 

View(0,100,52,72) 

WINDOW  Left  .Right  .Qnin.Qnax 

CLIP  0, Right  .Qnin.Qnax 

AXES  P/20,Qnax/10,0,Qnin 

CLIP  Left,  Right  .Qnin.Qnax 

LDIR  0 

IF  NOT  (O2_cal=0)  THEN 

CSIZE  2.8 

LORG  8 

IMAGE  CD.D,"    " 

Incr=(Chiax-Qnin)/5 

FOR  I=Qnin+Incr  TO  (Qnax-Incr)*l .01   STEP   Incr 
MJVE  0,1 
LABEL  USING  S445;((I-02_dc_of f set )*O2_cal-tOl)*100 

NEXT  I 
END  IF 

MJVE  l,Line2(Start40ffset)-02_dc_offset 
PEN  2 
FOR   I=Start  TO  End-Offset 

PLOT  I-Start+l,Line2(I-(Offset) 
NEXT  I 
PENUP 
PEN  1 

*  LABEL  THE  02  PLOT 

MJVE  Left,(Qnax-(Qnin)/2 

LORG  6 

LDIR  90 

CSIZE  2.5 

LABEL  "FRACTIONAL  02" 

MJVE  Left*.8S,(Qnax-tQnin)/2 

LABEL  "CONCENTRATION" 

*  PLOT  THE  002  DATA  ARRAY 

View(0, 100,76,96) 

WINDOW  Left  .Right  .Gnin.Qnax 

CLIP  0, Right, Chun, Onax 

AXES  P/20,(Qnax-Chiin)/10,0,Chiin 

CLIP  Left  .Right, Qnin.Qnax 

IF  NOT  (Co2_cal=0)  THEN 

LDIR  0 

CSIZE  2.8 

LORG  8 

Incr=(Qnax-Qnin)/5 

FOR   I-Qnin+Incr  TO  (Qnax-Incr)*l .01   STEP   Incr 
MJVE  0,1 
LABEL  USING  5445;  (I-Co2_dc_of  f  set  )*Co2_cal*100 

NEXT  I 
END  IF 
LINE  TYPE  1 

MJVE  l,Linel(Start-tOffset) 
PEN  2 
FOR  I=Start  TO  End-Offset 

PLOT  I-Start+l,Linel(I+Offset) 
NEXT  I 
PENUP 
PEN  1 

*  LABEL  THE  C02  PLOT 


5710 
5715 
5720 
5725 
5730 
5735 
5740 
5745 
5750 
5755 
5760 
5765 
5770 
5775 
5780 
5785 
5790 
5795 
5800 
5805 
5810 
5815 
5820 
5825 
5830 
5835 
5840 
5845 
5850 
5855 
5860 
5865 
5870 
5875 
5880 
5885 
5890 
5895 
5900 
5905 
5910 
5915 
5920 
5925 
5930 
5935 
5940 
5945 
5950 
5955 
5960 
5965 
5970 
5975 
5980 
5985 
5990 
5995 
6000 
6005 
6010 
6015 
6020 
6025 
6030 
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LORG  6 

CSIZE  2.3 

LDIR  90 

MOVE  Left,(Cmax+Chiin)/2 

LABEL  "FRACTIONAL  CD2" 

M3VE  Left*.85,(Qnax+Cmin)/2 

LABEL  "CONCENTRATION" 

Q$="" 

»*»  pur  PEN  AWVY  AND  PAUSE  FOR  USER  TO  OBSERVE  PLOT 

PEN  0 

BEEP 

PAUSE 

*  ONCE  PAUSE  IS  COMPLETE,  PRCMPT  THE  USER  FOR  REDO  OF  GRAPHICS 

GRAPHICS  OFF 
0$="" 

BEEP 

INPUT  "REDO  GRAPHICS?  (Y/N)",Q$ 

***  IF  DESIRED,  GO  START  PLOTTING  SUBROUTINE  OVER 
IF  Q$="Y"  OR  Q$="y"  THEN  GOTO  Dtplot 

***  OTHERWISE,  RETURN  BACK  TO  BEGIN  BREATH -BY -BREATH  ANALYSIS 
RETURN 

•••SUBROUTINE  FOR  RETRIEVING  FOUR  CHANNELS  OF  BINARY  DATA  FROM  STORAGE 


"  GET  THE  NAMES  OF  THE  FOUR  FILES 


Rtdata 
INPUT 
BEEP 
0$="0' 
INPUT 
BEEP 
V$="V" 
INPUT 
BEEP 
T$="T" 
INPUT 


BEEP 

"ENTER  THE  002  SIGNAL  FILE  NAME", CIS 

'(SC1$[2,LEN(C1$)]   !  Set  the  default  oxygen  file  name 
"ENTER  THE  02  SIGNAL  FILE  NAME"  ,0$ 

«C1S[2,LEN(C1$)]   !  Set  the  default  flow  file  name 
ENTER  THE  FLOV  SIGNAL  FILE  NAME"  ,V$ 

'&C1$[2,LEN(C1$)]   !  Set  the  default  temperature  file  name 
"ENTER  THE  FLOW  TEMPERATURE  SIGNAL  FILE  NAME",T$ 


*•*  SELECT  PROPER  MASS  STORAGE  UNIT  AND  OPEN  THE  FILES 

MASS  STORAGE  IS  "  :HP9895, 700,0" 
ASSIGN  sCo2_path  TO  Cl$ 
ASSIGN  a02_path  TO  OS 
ASSIGN  9Flow_path  TO  V$ 
ASSIGN  <8Temp_path  TO  T$ 

'*•  TELL  PROGRAMVHEN  TO  QUIT  READING  THE  FILES 

ON  END  @Co2_path  GOTO  6055 
ON  END  «02_path  GOTO  6080 
ON  END  @Flow_path  GOTO  6105 
ON  END  @Temp_4>ath  GOTO  6130 

*  READ  THE  CD2  DATA  FILE 

ENTER  aCo2_path;Qnax,Cmin 


6035 
6040 
6045 
6050 
6055 
6060 
6065 
6070 
6075 
6080 
6085 
6090 
6095 
6100 
6105 
6110 
6115 
6120 
6125 
6130 
6135 
6140 
6145 
6150 
6155 
6160 
6165 
6170 
6175 
6180 
6185 
6190 
6195 
6200 
6205 
6210 
6215 
6220 
6225 
6230 
6235 
6240 
6245 
6250 
6255 
6260 
6265 
6270 
6275 
6280 
6285 
6305 
6310 
6315 
6320 
6325 
6330 
6335 
6340 
6345 
6350 
6355 
6360 
6365 
6370 
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ENTER  <3Co2_path;Linel(*) 

•*  READ  THE  02  DATA  FILE 

ENTER  <sO2_path;Qnax,0min 
ENTER  «02_path;Line2(*) 

«**  READ  THE  FLOW  DATA  FILE 

ENTER  @Flow_path;Fmax,Fmin 
ENTER  @Flow_path;Line3(*) 

'**  READ  THE  TEMPERATURE  DATA  FILE 

ENTER  <aTemp__path;Tlnax,'Ihiin 
ENTER  @Temp_path;Line4(*) 

*  CLOSE  THE  FILES  AND  SET  MASS  STORAGE  UNIT  BACK  TO  INTERNAL  FLOPPY 

ASSIGN  8Co2_path  TO  * 
ASSIGN  <§02_path  TO  * 
ASSIGN  aFlow__path  TO  * 
ASSIGN  @Temp_path  TO  * 
MASS  STORAGE   IS   ": INTERNAL" 

«**  RETURN  BACK  TO  ANALYSIS  ROUTINE 

RETURN 

"   SUBROUTINE  FOR  RETRIEVING  CALIBRATION  FACTORS  FROM  MASS  STORAGE 

'*  GET  CALIBRATION  FILE  NAME  AND  ASSIGN  PROPER  MASS  STORAGE  UNIT 

Rtcal:BEEP 
INPUT  "ENTER  CALIBRATION  FILE  FILENAME"  ,Cal$ 

»**  OPEN  CALBRATION  FILE  AND  TELL  PROGRAM  WEN  TO  STOP  READING  FILE 

ASSIGN  ®Cal_path  TO  Ca  1$&":HP9895, 700,0" 
ON  END  «CaL_path  GOTO  Cal_f  l_is_read 

«**  READ  PARAMETERS  IN  CALIBRATION  FILE 

ENTER  <aCal_path;Co2_dc_offset  ,02_dc_off  set  ,Bin_zero_f  low 

ENTER  ®Cal_path;Co2_cal  ,02_cal 

ENTER  ®Gal_path;Non_c_i_f  lowcal  ,Non_c_e_f  lowcal 

ENTER  ®Cal_path;Time_delay,S,01,Ta,Tb,Tc,Date$ 

ENTER  ®Cal_path;Corr_i_f lowcal, Corr_e_f lowcal 

ENTER  <8Cal_path;Pb,Rel_humid,Rooni_ternp 

j 

Cal_f l_is_read:  !  The  calibration  file  has  been  entered  so  return. 
ASSIGN  sCal_path  TO  *  Iclose  Cal_path 

RETURN 

***  SUBROUTINE  TO  DETERMINE  MASS  SPECTROMETER  TIMS  DELAY  ON  A  BREATH- 
***  BY-BREATH  BASIS 

Bbb_t  ime_de  1  ay  :Temp_a=A 
Temp_z=Z 
OCo2_dc_offset     ! SET  C  TO  BINARY  ZERO  OD2  VALUE 

!**»  BEGINNING  AT  POINT  ON  FLOW  SIGNAL  CORRESPONDING  TO  ZERO  FLOW, 
!»**  LOCATE  PEAK  END  EXPIRED  CD2  VALUE 


6375 
6380 
SING 
6385 
6390 
6395 
6400 
6405 
6410 
6415 
6420 
6425 
6430 
6435 
6440 
6445 
6450 
6455 
6460 
6465 
6470 
6475 
6480 
6485 
6490 
6495 
6500 
6505 
6510 
6515 
6520 
6525 
6530 
6535 
6540 
6545 
6550 
6555 
6560 
6565 
6570 
6575 
6580 
6585 
6590 
6595 
6600 
6605 
6610 
6615 
6620 
6625 
6630 
6635 
6640 
6645 
6650 
6655 
6660 
6665 
6670 
6675 
6680 
6685 
6690 
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Hunt_max:Z=A  !CD2  INDEX  CORRESPONDING  TO  ZERO  FLCW 

IF  No_points-Z<50  THEN  Bamb_out   !MAKE  SURE  50  POINTS  FOLLOW  ZERO  CROS 

Co2max=Linel(Z)-C     !SET  INITIAL  CD2MAX  LEVEL  TO  FIRST  002  VALUE 

Max_index=Z 

FOR  Wye=Z  TO  Z+.75*S   1SEARCH  AHEAD  FOR  THE  MAX  END  EXPIRED  FC02  VALUE 

IF  Linel(Wye)-C>Co2max  THEN  Max_index=Wye 

IF  Line  1  (Wye )-C>Co2max  THEN  Co2roax=Linel(Wye)-C 
NEXT  Wye 

***  FIND  THE  MIDDLE  INDEX  (THAT  POINT  CORRESPONDING  TO  50%  OF  THE  MAX. 
***  END  EXPIRED  0D2  VALUE) 

Mid_index^1ax_index 

FOR  Wye=Max_index  TO  Z+.75*S 

IF  Linel(Wve)-C>.5*Co2max  THEN  Next_svye 

Mid_index=Wye     !  INDEX  OF  THE  50%  DCWN  POINT  ON  F002  CURVE 
GOTO  Set_l units 
Nextjvye  :NEXT  'Wye 

FIND  THE  MINIMLM  INDEX  (THAT  POINT  CORRESPONDING  TO  THE  MINIMA  END 
EXPIRED  CD2  VALUE 

Set_l  imi  ts  :Min_index^lid_index 
Co  2mi  n=Li  ne  1  (Mi  d_i  nde  x ) -C 

FOR  Wye=Mid_index  TO  Mid_index+Mid_index-Max_index 
IF  Linel(Wye)-C>Co2min  THEN  Next_y 
Min_index=Mye 
Co2min=Linel(Wye)-C 
Next_y:  NEXT  Wye 

»  INITIALIZE  INDEXES  FOR  START  OF  INTEGRATION  OF  002  SIGNAL 

Best_match=l .E+50 
Beg_pt=Max_index 
End_pt=Mi  n_i  nde  x 

*  EXIT  ROUTINE  IF  ADEQUATE  NUMBER  OF  POINTS  DO  NOT  EXIST 

IF  End_pt>No_points  THEN  Bomb_put 

Beg_intg=Max_index 

End intg=Min_index 

***  USE  TRAPEZOIDAL  RULE  TO  COMPUTE  THE  AREA  ABOVE  AND  BELCW  THE  CURVE 

Nevj_s  urn :  As  um-0 
Bsum=0 

•»   FIRST,  ABOVE  THE  CURVE,    1/2  OF  FIRST  AND  LAST  POINTS 

Asum=.5*(Co2max-(Linel(Beg_jpt)-C))+.5»(Co2max-(Linel(Beg_intg)-C)) 
FOR  Wye=Beg_pt+l  TO  Beg_intg-1 

Asum=Asum+Co2max  -  (Line  1  (Wye )  -C) 
NEXT  Wye 

***  NEXT,   BELOW  THE  CURVE,    1/2  OF  FIRST  AND  LAST  POINTS 

Bsum=.5*(Linel(Beg_intg)-Co2_dc_Dffset)+.5*(Linel(End_pt)-Co2_dc_Dffset) 
FOR  Wye=Beg_intg+l  TO  End__pt-1 

Bsun>=BsumfLinel(Wye)-Co2_dc_off  set 
NEXT  Wye 

*  COMPUTE  DIFFERENCE    IN  THE  TOO  AREAS 
Adiff=ABS(Asum-Bsum) 


6695 
6700 
6705 
6710 
6715 
6720 
6725 
6730 
6735 
6740 
6745 
6750 
6755 
6760 
6765 
6770 
6775 
6780 
6785 
6790 
6795 
6800 
6805 
6810 
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*  IF  AREA  DIFFERENCE  IS  A  MINIMUM,  REMEMBER  THE  PROPER  INDEX 

IF  Adiff<Best_roatch  THEN  Best_index=Beg_intg 
IF  Adiff<Best_match  THEN  Best_match=Adiff 

***  BLMP  THE  CENTER  INTEGRATION  POINT  AND  GO  TRY  ANOTHER  IF  STILL 
***  WITHIN  CUTER  LIMITS  OF  INTEGRATION 

Beg_intg=Beg_intg+l    !  IF  NOT  TO  ENDPOINT  SHIFT  THE  CENTER  INIGR  PONT 
IF  Beg_intg<=End_intg  THEN  NersL_.sum    !  GO  COMPUTE  NEW  AREAS  FOR  LIMITS 

***  COMPUTE  MASS  SPECTROMETER  TIME  DELAY  FOR  THIS  BREATH  AND  RETURN 
***  BACK  TO  ANALYSIS  ROUTINE  WITH  VARIABLES  UNALTERED. 

Bamb_out :   !  DATA  STREAM  EXHAUSTED 
Time_delay=(Best_index-Z)/S*1000 
A=Temp_a 
Z=Temp_z 
RETURN 
END 


********* 


(******** 


6815 
6820 
6825 
6830 
6835 
6840 
6845 
6850 
6855 
6860 
6865 
6870 
6875 
6880 
6885 
6890 
6895 
6900 
6905 
6910 
6915 
6920 
6925 
6930 
6935 
6940 
6945 
6950 
6955 
6960 
6965 
6970 
6975 
6980 
6985 
6990 
6995 
7000 
7005 
7010 
7015 
7020 
7025 
7030 
7035 
7040 
7045 
7050 
7055 
7060 
7065 
7070 
7075 
7080 
7085 
7090 
7095 
7100 
7105 
7110 
7115 
7120 
7125 
7130 
7135 
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SUB  Calc_sig_val(  INTEGER  A,Z,  Insp_or_expr$,REAL  Incr_yol  ,Fo2,Fco2) 
GOTO  Si.  ip_c  airmen  ts 

i  **************#******#**##************************************#****** 

1*********^*********************************************************** 
I ****  **** 

**** 


****  Section  Title:   Inspiratory  and  expiratory  signal  values 

****  / 

Date  Programer 

Janurary  1,  1985  Michael  Masters 


Purpose:  To  calculate  the  incremental  signal  values  for  •»*» 
current  data  sample.  The  incremental  volume  is  calc-**** 
ulated  and-is  converted  to  STPD  conditions  if  the  «*** 
Temperature  correction  is  requested.  The  fractional  ***» 
carbon  dioxide  and  oxygen  fractional  concentrations 
are  also  calculated. 


****  Revision 
****  

*»**    1.0 

**** 

***************** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

*  *  *  * 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**  *  * 

**  ** 

******** 


[************* 


**** 
**** 
**** 
**** 

********** 
**** 


**** 
**** 


Parameters  passed  from  the  calling  routine 

A  -  The  index  to  the  flow  and  temperature  data. 

Z  -  The  index  to  the  gas  (02  and  002)  data. 

Insp_or_exprS  -  a  flag  indicating  an  inspiratory  or 
an  expiratory  flow. 


**** 
**** 

**** 
**** 
**** 
**** 
**** 


Parameters  returned  to  the  calling  routine 

Incr_vol  -  the  incremental  volume  of  air  under  STPD  **** 
conditions .  **** 

**** 

Fo2,Fco2  -  the  dry  fractional  values  of  02  and  C02.   **** 

**** 

Routine(s)  Called:  **** 

Function  FNRel_viscos  **** 

**** 


************ 


t«***********************» 


***************** 


Skip_conments :      ! 

CCM  /Resp_datal/   IOTEGER  Linel(l :24000) ,Line2(l :24000) 

CCM  /Resp_data2/   INTBGER  Line3(l :24000) ,Line4(l :24000) 

CCM  /Cal_data2/    INTEGER  Co2_dc_of  f set  ,02_dc_of f set  ,Bin_j*ero_f  low,S 

CCM  /Cal_data3/  REAL  Co2_cal  ,02_cal 

CCM  /Cal_data6/  REAL  Ta,Tb,Tc 

OOvl  /Cal_data7/  REAL  Time_delay ,01  ,Pb,Rel_humid ,Rooni_temp 

CCM  /  Jial_data6/   INTBGER  Cor r_f  lag, REAL  Room_fh2o,T 

(XM  /Anal_data7/  Vap(0:250)  ,Fh2o_sat(0:250) 

Determine  the  C02  and  02  fractional  concentrations 

Fco2=(Linel(Z)-Co2_dc_offset)*Co2_cal 
Fo2=(Line2(Z)-02_dc_offset)*02_cal-t01 


IF  Corr_/lag  THEN 

Tempera  ture=Ta*Line4(A)*Line4(A)+Tb*Line4(A)+Tc 
IF  Insp_or_expr$="INSP"  THEN 

Fh2o=Roam_fh2o 
ELSE 

Fh2o=Fh2o_sat((Ten^)erature-20)*lO) 
END  IF 

Fco2_wet=Fco2*(l.0-Fh2o) 
Fo2_wet=Fo2*(1.0-Fh2o) 
Fn2_wet=l  .0-Fco2_wet-Fo2_wet-Fh2o 
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7140   !  The  binary  flow  is  equal  to  (binary  delta-P/viscosity). 

7145       Rel_yiscosity=FNRe.l__viscos(Fo2_wet  ,Fco2_wet  ,Fn2_wet  ,Fh2o, Tempera t 
ure) 

7150       Bin_flow=(Line3(A)-Bin_zero_f  low)/Rel  viscosity 

7155   ! 

7160   !  Convert  the  incremental  binary  volume  to  STPD  coditions. 

7165       Incr_vol=Bin_flow*(1.0-Fh2o)*273. 15/(273. 15+Temperature)*Pb/760.0 
«T 

7170     ELSE 

7175       Incr_vol=(Line3(A)-Bin_zero_flow)*T 

7180     END  IF 

7185  SUBEND 

7190  ! 

7195  ! 


7200  DEF  FNRel_viscos(Fo2,Fco2,Fn2,Fh2o, Temperature) 

7205  GOTO  Skip_comnents 

7210  !********»**«***********»»»*******»*************************»*»**«***« 

7215  I******************************************************************.** 

7220  I****                                                       »»», 

7225  i****  Routine  Title:      Relative  viscosity  function           **** 

7230  !****                                                       «»*» 

7235  !****  HP  BASIC  FILENAME:  Analysis                          ***« 

7240  !»***                                                       „«, 

7245  !****  Department  of  Electrical  and  Computer  Engineering,        *»** 

7250  I****  Kansas  State  University                               «*** 

7255  !****                                                   **** 

7260  I****  Revision     Date              Programer               **** 

7265   !**»*  ___• »»», 

7270  !****    1.0       August  23,  1984     Michael  Masters          *»** 

7275  !****                                                       ***« 

7280  I*****'*******************************************.*********.*****.*** 

7285  !****                                                       .*»» 

7290  !****  Purpose:  To  calculate  the  relative  viscosity  of  a  gas      **** 

7295  containing  carbon  dioxide  (C02),  oxygen  (02),  nitrogen  **** 

7300  (N2),  and  water  vapor  at  a  temperature  (T) .  The       **** 

7305  viscosity  is  expressed  relative  to  room  air  under  STPD  **** 

7310  ]»***      conditions.  The  calling  sequence  is:                **** 

7315  !***«                                                   *,*« 

7320  I****   variable  =  FNRel_viscos(Fo2,Fco2,Fn2,Fh2o, Temperature)    **** 

7325  !****                                                   ***« 

7330  !****     where:                                          **** 

7335  !****                                                    ««», 

7340  !***»        Fo2,Fco2,Fn2,Fh2o  -   the  fractional  gas  cone.       **** 

7345  !****            0f  02,  002,  and  water  vapor  in  the  gas.        **** 

7350  !****                                         6           »»»» 


7355  Temperature  -  the  insantaneous  temperature  of  the  eas**** 

7360  !****                                                                                         *                                £     «»»« 

7365  !*********************»*****»»*»****»********»*»»*******»«»***»**»*»*» 

7370  Skip_comnents :      ! 

7375  ! 

7380  !          Calculate  the  individual  viscosities 

7385  Vis_n2=16S.4+. 451 "Temperature 

7390  Vis_o2=188.0+.606*Temperature 

7395  Vis_co2=187.1+.612*Temperature 

7400  Vis_h2o=117.6+.506»Temperature 

7405  ! 

7410     Re  l_vis=(Fo2*Vis_o2+Fco2*Vis_co2+Fn2*Vis_n2+Fh2o*Vish2o)/170. 17502 
7415     RETURN  Rel__vis 

7420  FNFiO 

7425  ! 

7430  ! 
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7435 
7440 
7445 
7450 
7455 
7460 
7465 
7470 
7475 
7480 
7485 
7490 
7495 
7500 
7505 
7510 
7515 
7520 
7525 
7530 
7535 
7540 
7545 
7550 
7555 
7560 
7565 
7570 
7575 
7580 
7585 
7590 
7595 
7600 
7605 
7610 
7615 
7620 
7625 
7630 
7635 
7640 
7645 


DEF  FNInspi rat ionC INTEGER  Pntr) 
GOTO  Skip__corrments 
i ****************************************************** 

I  ********  ****************************************  ****** 

IS*** 

[*»**  Function  Title:   Inspiratory  flow. 

Revision     Date  Programer 

1.0       Janurary  1,  1985    Michael  Masters 

********************************** 


**  *  * 

**** 

****************** 

**** 


Purpose:  To  determine  if  the  flow  point  is  an 
The  point  is  an  inspiratory  flow  if  it  is  le 
zero  flow  value  or  any  of  the  next  five  data 
less  than  or  equal  to  the  zero  flow  value. 

Parameters  passed  from  the  calling  routine 

****      Pntr  -  Points  to  the  flow  data  point. 

**** 

***»  -j-Qg  routine  returns  a  logical  value  of  True  if 
****   inspiratory,  otherwise  false. 


**** 
*  *  *  * 


ins 
ss 

po 


the 


****  Routine(s)  Called: 

**** 


None 


***************************************************** 
***************************************************** 


************* 
************* 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
************* 
**** 

pirat ion.**** 
than  the  **** 
ints  are  **** 
**** 
**** 
**** 
**** 
**** 
**** 

flow  is  **** 
**** 
**** 
**** 
**** 
************** 
************** 


Skip_comnents :    ! 

CCM  /Resp_data2/    INTEGER  Line3( 1 :24000) ,Line4( 1 : 24000) 
CCM  /Cal_data2/   INTEGER  Co2_dc_of  f  set  ,02_dc_of  f  se  t  ,Bin_zero_f  low.S 
INTEGER   Inspiration, I 

Inspirat ion=(Line3(Pntr)<Bin_zero_f low) 
1=1 
"WHILE  NOT  (Inspiration)  AND  I<-5 

Inspirat ion=(Line3(Pntr+I )<=Bin_zero_f  low) 

I-I  +  l 
ENDWIILE 
RETURN  Inspiration 
FNEND 


7650 
7655 
7660 
7665 
7670 
7675 
7680 
7685 
7690 
7695 
7700 
7705 
7710 
7715 
7720 
7725 
7730 
7735 
7740 
7745 
7750 
7755 
7760 
7765 
7770 
7775 
7780 
7785 
7790 
7795 
7800 
7805 
7810 
7815 
7820 
7825 
7830 
7835 
7840 
7845 
7850 
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DEF  FNExpiration( INTEGER  Pntr) 
GOTO  Skip_corrments 

j********************************************************************* 
I****  **** 

!*»**  Function  Title :  Expiratory  flow.  **** 

j  ****  **** 

!****  Revision     Date              Programer  **** 

!****   **** 

!****    1.0       Janurary  1,  1985    Michael  Masters  **** 

I****  «*** 

**************************************************************** 

**** 

Purpose:   To  determine  if  the  flow  point  is  an  expiration.**** 

The  point  is  an  expiratory  flow  if  it  is  greater  than   ***» 

the  zero  flow  value  or  any  of  the  next  five  data  points  **** 

are  greater  than  or  equal  to  the  zero  flow  value. 


**** 
**** 
**** 


Parameters  passed  from  the  calling  routine 
Pntr  -  Points  to  the  flow  data  point. 


**** 
**** 
**** 
**** 


****     The   routine   returns   a    logical   value   of  True    if   the   flow  is   ***» 
****     expiratory,   otherwise   false.  **** 

****  **** 

****     Routine(s)  Called:  None  **** 

****  **** 

********************************************************************* 
********************************************************************* 
Skip_ccmnents:    ! 

GOM  /Resp_data2/   INTEGER  Line3(l :24000) ,Line4(l :24000) 
OCM  /Cal_data2/    INTEGER  Co2_dc_of  f  se  t  ,02_dc_of  f  set  ,Bin_zero_f  low.S 
INTEGER  Expiration, I 

Expiration=(Line3(Pntr)>Bin_zero_f  low) 
1=1 
VMILE  NOT  (Expiration)  AND  I  <=5 

Expirat ion-(Line3(Pntr+l )>-Bin_zero_f  low) 
1  =  1  +  1 
ENDW1ILE 
RETURN  Expiration 
FNEND 


7855 
7860 
7865 
7870 
7875 
7880 
7885 
7890 
7895 
7900 
7905 
7910 
7915 
7920 
7925 
7930 
7935 
7940 
7945 
7950 
7955 
7960 
7965 
7970 
7975 
7980 
7985 
7990 
7995 
8000 
8005 
8010 
8015 
8020 
8025 
8030 
8035 
8040 
8045 
8050 
8055 
8060 
8065 
8070 
8075 
8080 
8085 
8090 
8095 
8100 
8105 
8110 
8115 
8120 
8125 
8130 
8135 
8140 
8145 
8150 
8155 
8160 
8165 
8170 
8175 
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DEF  FNMax_co2_pntr( INTEGER  Linel(*),A) 

•**#****************************************************************** 

********************************************************************* 
****  **** 

****  Function  Title:  Find  maximum  002  value.  **** 


Revision 
1.0 


**** 

******************************* 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

**** 

*  *** 

**** 

**** 


Date  Programer 

December  1,  1984    Rick  Pieschl 


**** 
**** 
**** 
**** 
**** 
******************** 
*  *  ** 
Purpose:  To  determine  the  point  where  the  maximum  (1)2     **** 

value  occured.  This  point  is  assumed  to  be  the  end 

expiratory  point. 


Parameters  passed  from  the  calling  routine 
Linel  -  The  Binary  002  data. 


**** 
**** 
**** 
**** 
**** 
**** 
A  -  The  point  corresponding  to  expiratory/inspriratory  **** 
transition.  **** 

**** 

****  -j-jje  routine  returns  a  value  equal  to  the  end  expirate  value**** 
****  **** 

****  Routine(s)  Called:      None  **** 

****  **** 

********************************************************************* 
********************************************************************* 
INTEGER  Max, I 
Max=A-50 
I -A- 50 
REPEAT 

IF  Linel(I)>Linel(Max)  THEN  Max=I 
Max-I 
1=1+1 
UNTIL  I>A 
RETURN  Max 
FNEND 


SUB  Disp_jresults(INTBGER  Breaths  ,Corr_f  lag) 


************ 


Disp_resul ts 


**************************** 


j  ********************* 

I  **** 

!****  Routine  Title: 

I I  *** 

!****  HP  MSIC  FILENAME:  ANALYSIS 
I  **** 

i****  Department  of  Electrical  and  Computer  Engineering. 
i****  Kansas  State  University 
I  **** 


**** 
...-.-.■ 
**** 
**** 
**** 


i ****  Revision 
i****   

j  ****  J   Q 


Date 

Sept.  10,  1984 


Programer 
Michael  Masters 


**  *  * 
**** 
**** 
*  *** 
**** 
*********************************** 

**** 

!****  Purpose:  **** 

This  subroutine  displays  the  breath  by  breath     **** 
respiratory  data  calculated  in  the  analysis  routine.   **** 


I   ******************************  * 
I   **** 


**** 


I  **** 

i   v  ..•  y  i    i   u  l  u  i  _v       uu  lu       ^uituiuieu       X  U       *.UC      aiiaiJIMS       1UUL  mc  ■ 

**** 
**** 

!****  Routine(s)  Called  **** 

Max_min  -  Determines  the  maximum  and  minum  values  of  **** 
the  respiratory  variable  to  be  plotted. 


t  *** 


**** 


8180 

8185 

8190 

8195 

8200 

8205 

8210 

8215 

8220 

8225 

8230 

8235 

8240 

8245 

8250 

8255 

8260 

8265 

8270 

8275 

8280 

eq 

8285 

8290 

8295 

8300 

8305 

8310 

8315 

8320 

8325 

8330 

8335 

8340 

8345 

8350 

8355 

8360 

8365 

8370 

8375 

8380 

8385 

8390 

8395 

8400 

8405 

8410 

8415 

8420 

8425 

8430 

8435 

8440 

8445 

8450 

8455 

8460 

8465 

8470 

8475 

8480 

8485 

8490 

8495 


I  **** 
**** 
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**** 

Veiw  -  Sets  the  plotting  areas  on  the  screen  or  the  **** 

plotter.  **** 

**** 

Make_axes  -  Defines  the  dimensions  of  the  plotting  **** 
area  based  on  the  maximum  and  minum  values  to  **** 
be  plotted.  Draws  and  labels  the  axes  and 
also  labels  the  plot. 


Plot_values  -  Plots  the  values  of  the  respiratory 
variable . 


**** 

**** 
**** 
**** 
**** 


Print_values  -  Plots  the  values  of  the  respiratory    **** 
variable .  **** 


t  *  *  *  * 
i  ******* 

K* * **** 


********** 
********** 


************************************************** 
************************************************** 


CCM  /Cal_datal/  Cal$[lO] ,Date$[25] 

COM  /Anal_data2/  INTEGER  True .False 

OCM  /Anal_data3/  INTEGER  Time_of_brth,02_cons  ,Co2_j>rod,  Insp_min_vent 

CCM  /Anal_data4/  INTEGER  Expr_min_vent  ,V_t  id_insp,V__t  id_expr  ,Resp_Jr 

CCM  /Anal_data5/  INTEGER  Breath_good,Resp_quot ient ,Formfd$[l] 

CCM  /Anal_data5a/  INTEGER  Frc_o2_cons  ,Frc_co2_prod  ,Volume_of_lung 

CCM  /Anal_data8/  Resp_yar(0: 12, 1 :500) 

CCM  /Anal_data9/  Name$[25]  ,Conment$[46] 

CCM  /Plot_resp_da:al/  INTEGER  Qni  t_bad,Num_breaths  ,No_b_avg 

CCM  /Plot_resp_data2/  Start_t  ime  ,End_t  ime  ,W_pe  r  i  od  ,Wjwd  t  h 

INTEGER  Figl,Fig2 

DIM  TimelS[20],EventlS[50],Time2$[20],Event2$[50] 

DIM  Tit]e$[40],Avg_bad_camnt$[65]  ,Avg_type$[7]  ,Resul  t_type$[5] 

Num_breaths=Breaths 

Repeat  until  the  user  no  longer  desires  to  plot  the 
results . 
REPEAT 

PRINT  FomrfdS 

PRINT  '\Miich  of  the  following  options  do  you  wish  to  do?" 
PRINT 

PRINT  "   1.  Plot  the  results." 
PRINT  "   2.  Print  the  results." 
REPEAT 
Q$>"" 
BEEP 

INPUT  "Enter  the  option  (l  or  2)  ",Q$ 
UNTIL  QS="1"  OR  QS-"2" 
IF  Q$-"l"  THEN 

Resul t_type$="PLOT" 
ELSE 

Resul t_type$="PRINT" 
END  IF 

PRINT  Formfd$,"How  do  you  wish  to  combine  breaths?" 
PRINT 

1.  The  individual  breaths." 

2.  Average  individual  breaths." 

3.  Avarage  windows  of  breaths." 


PRINT  " 
PRINT  " 
PRINT  " 
REPEAT 

Q$="" 

BEEP 

INPUT  "Enter  the  option  (1,2  or  3) 
UNTIL  Q$="l"  OR  Q$="2"  OR  Q$="3" 
PRINT  FormfdS 
SELECT  Q$ 
CASE  ="1" 

Avg_type  $="AVERAGE" 

No_b_avg=l 


,QS 


8500 
8505 
8510 
8515 
8520 
8525 
8530 
8535 
8540 
8545 
8550 
8555 
8560 
8565 
8570 
8575 
8580 
8585 
8590 
8595 
8600 
8605 
8610 
8615 
8620 
8625 
8630 
8635 
8640 
8645 
8650 
8655 
8660 
8665 
8670 
8675 
8680 
8685 
8690 
8695 
8700 
8705 
8710 
8715 
8720 
8725 
8730 
8735 
8740 
8745 
8750 
8755 
8760 
8765 
8770 
8775 
8780 
8785 
8790 
8795 
8800 
8805 
8810 
8815 
8820 
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Star  t_t  ime=Re  sp_var  (Time__of_br  th ,  1 ) 

IF  Start_time<=5  THEN  Start_time=0 

End_t  ime=Resp_var(Tirne_of_brth,Num_breaths) 
CASE  ="2" 

Avg_type  $="AVERAGE" 

BEEP 

INPUT  "How  many  breaths  do  you  wish  to  average?",No_b_avg 

Star  t_t  ime=Resp_var  (Time_of_br  th ,  1 ) 

IF  Start_time<=5  THEN  Start_time=0 

End_t  ime=Resp_var(Time_of_brth  ,Nurn_breaths ) 
CASE  ="3" 

Avg_type  $= '-"WINDOW 

BEEP 

INPUT  "Enter  the  windowing  period.  (seconds)",W_period 

BEEP 

INPUT  "Enter  the  window  width.  ( seconds  )",Wwdth 

BEEP 

INPUT  "Enter  the  starting  time  (seconds)", Start_time 

BEEP 

INPUT  "Enter  the  ending  time  ( seconds )",End_time 
END  SELECT 

See  if  the  user  wishes  to  omit  those  breaths  tagged 
as  bad  by  the  data  calculation  routine.  These  bad 
breaths  are  those  with  an  inspiratory  tidal  volume 
or  expiratory  tidal  volume  below  a  specified  volume. 
Q$-"" 
BEEP 

INPUT  "Do  you  wish  to  omit  the  bad  breaths?  (Y/N)",Q$ 
IF  Q$="Y"  OR  QS="y"  THEN 

Qni  t_bad=True 
ELSE 

Qni  t_bad=Fa  1  s  e 
END  IF 

PRINT  FormfdS 

IF  Result_type$="PLOT"  THEN 
GCLEAR 
GINIT 

Prompt  the  user  for  the  plots  he  wants. 
PRINT 

PRINT  "Which  of  the  following  two  respiratory  variables" 
PRINT  "do  you  wish  to  plot?  Enter  the  number  " 
PRINT  "corresponding  to  the  variable  you  wish." 
PRINT 

Oxygen  consumed" 

Carbon  dioxide  produced" 

Aveolar  oxygen  consumption" 

Aveolar  carbon  dioxide  production" 

Inspiratory  Minute  ventilation" 

Expiratory  Minute  ventilation" 

Inspiratory  Tidal  volume" 

Expiratory  Tidal  volume" 

Lung  volume" 

Respiratory  frequency" 

Respiratory  quotinet" 


PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
PRINT  " 
REPEAT 

BEEP 

INPUT  "Enter  the  first  plof'.Figl 

IF  Figl<02_cons  OR  Figl>Resp_quot ient  THEN 
PRINT  "Invalid  response" 

END  IF 
UNTIL  Figl>=02_cons  AND  Figl <-Resp_quot ient 
REPEAT 

BEEP 


1. 

2. 

3. 

4. 

5. 

6. 

7. 

8. 

9. 
10. 
11. 
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8825 

8830 

8835 

8840 

8845 

8850 

8855 

8860 

8865 

8870 

8875 

8880 

8885 

8890 

8895 

8900 

8905 

8910 

8915 

8920 

8925 

8930 

8935 

8940 

8945 

8950 

8955 

8960 

8965 

8970 

8975 

8980 

8985 

8990 

8995 

9000 

nl 

9005 

9010 

xl 

9015 

9020 

9025 

9030 

n2 

9035 

9040 

x2 

9045 

9050 

9055 

9060 

9065 

9070 

9075 

9080 

9085 

9090 

9095 

9100 

9105 

9110 

9115 

9120 

9125 


INPUT  "Enter  the  second  plot",Fig2 

IF  Fig2<02_cons  OR  Fig2>Resp_quot ient  THEN 
PRINT  "Invalid  response" 

END  IF 
UNTIL  Fig2>=02_cons  AND  Fig2<=Resp_quot  ient 
Plot_dev$="CRT"         !  Set  the  default 
BEEP 

INPUT  "OUTPUT  ON  PLOTTER  OR  CRT  ?  (PLOTTER/CRT)", Plot_dev$ 
IF  Plot_dev$-"PLOTTER"  THEN 

PRINT 

PRINT  "Press  CONTINUE  when  you  have  prepared  the  plotter" 

PAUSE 

PLOTTER  IS  705,"HPGL" 

PRINTER  IS  705 

PRINT  "VS5;" 

PRINTER  IS  1 

PEN  1 
ELSE 

DUMP  DEVICE  IS  701 
END  IF 
PRINT  FormfdS 


K*************X****************************************************** 

Determine  the  maximimum  and  minimum  values  to  be 
plotted.  Allow  for  the  user  to  define  their  own 
maximum  and  minum  valuse  of  R. 

Max_min(Figl  ,Avg_type$,Maxl  ,Minl) 
IF  ABS(Minl)<.001  THEN  Mi n  1=0 
Max_jnin(Fig2,Avg_type$,Max2,Min2) 
IF  ABS(Min2)<.001  THEN  Min2=0 
IF  Figl=Resp_auotient  THEN 
BEEP 
INPUT  "Enter  min  value  of  R  or  CONT  for  calculated  min. 


BEEP 

INPUT  "Enter  max  value  of  R  or  CONT  for  calculated  max. 


,Mi 


,Ma 


END  IF 

IF  Fig2-Resp_quotient  THEN 

BEEP 

INPUT  "Enter  min  value  of  R  or  CONT  for  calculated  min.",Mi 

BEEP 

INPUT  "Enter  max  value  of  R  or  CONT  for  calculated  max.",Ma 

END  IF 


************************************** 

Plot  the  values  . 


************* 


************* 


Set  up  the  plotting  area,  determine  the  starting  and 
ending  times,  make  the  axes,  and  finally  plot  the  values 

GRAPHICS  ON 

View(0, 100,58, 100) 

***************  pjpst  Plot  ************* 

Make_axes(Figl  ,Corr_f  lag  .Mini  ,Maxl  ) 
Plot_values(Figl  ,Avg_type$) 

***************  second  plot  ************* 
View(0, 100, 15,57) 
Make_axe  s (Fi  g2  ,Co  r  r_f 1 ag  ,Mi  n2  ,Max2 ) 
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9130 

9135 

9140 

9145 

9150 

9155 

9160 

9165 

9170 

9175 

9180 

9185 

9190 

9195 

9200 

9205 

9210 

9215 

9220 

9225 

9230 

9235 

9240 

9245 

9250 

9255 

9260 

9265 

9270 

9275 

9280 

9285 

9290 

9295 

9300 

9305 

9310 

9315 

9320 

9325 

$ 

9330 

9335 

9340 

9345 

9350 

9355 

9360 

9365 

9370 

9375 

9380 

9385 

9390 

9395 

9400 

9405 

9410 

9415 

9420 

9425 

9430 

9435 

9440 

9445 


Plot_values(Fig2,Avg_type$) 


********************************************************************* 
Title  the  plot  and  specify  events 

BEEP 

View(0, 100,0, 15) 

WINDOW  0,100,0,100 

CSIZE  3.5 

IF  Avg_type$="AVERAGE"  THEN 

Avg_bad_comnt$=VAL$(No_b_avg)&"  Breath(s)/point" 
ELSE 

Avg_bad_comnt$=VAL$(W_period)&"   s  Window  per iod; 

AvgJad_conmt$=Avg3ad_comnt$&VAL$(W_wdth;&''s  Window  width" 
HO  IF  ' 

IF  Qnitjbad  THEN 

Avg_bad_comnt$=Avg_bad_comnt$&";        Bad   breaths   omitted" 
END  IF 
LQRG  6 
\OVE  50,98 
LABEL  Avg_bad_comnt$ 
PENUP 

ViAIT  1        !  Allow  the  user   to   look  at   the   data   a   second. 
GRAPHICS  OFF 


See    if   the   user  desires   to  define   certain  events. 

Q$-"" 

BEEP 

INPUT  "Do  wish  to  define  events  on  the  plot?  (Y/N)",Q$ 

IF  Q$="Y"  OR  Q$="y"  THEN 

BEEP 

INPUT  "Enter  the  time  of  the  first  event .".Time  1$ 

BEEP 

INPUT  "Enter  the  event  occurring  at  the  first  t ime  .".Event IS 

BEEP 

INPUT  "Enter  the  time  of  the  second  event .",Time2$ 

BEEP 

INPUT  "Enter  the  event  occurring  at  the  second  t ime  .",Event2 

LORG  3 

MWE   10,78 

LABEL  Timel$&":      "&Eventl$ 

MJJE   10,60 

LABEL  Time 2 $&":   "&Eveut2$ 

PENUP 
END  IF 
CSIZE  5.5 
LORG  4 
NOVE  50,0 
BEEP 

INPUT  "Enter  a  Title  for  this  plot",Title$ 
LABEL  Title$&";  "&Name$&";  "&Date$ 
PENUP 
PEN  0 

GRAPHICS  ON 
PAUSE 

GRAPHICS  OFF 
ELSE 

Print_resul ts(Avg_type$) 
END  IF 


BEEP 
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9450       0$="" 

9455       INPUT  "Do  you  wish  to  exit  to  the  analysis  routine?  (Y/N)",QS 

9460     UNTIL  Q$="Y"  OR  Q$="y" 

9465     GINIT 

9470  SUBEND 

9475 

9480 

9485 


9490 
9495 
9500 
9505 
9510 
9515 
9520 
9525 
9530 
9535 
9540 
9545 
9550 
9555 
9560 
9565 
9570 
9575 
9580 
9585 
9590 
9595 
9600 
9605 
9610 
9615 
9620 
9625 
9630 
9635 
9640 
9645 
9650 
9655 
9660 
9665 
9670 
9675 
9680 
9685 
9690 
9695 
9700 
9705 
9710 
9715 
9720 
9725 
9730 
9735 
9740 
9745 
9750 


SUB  View(Left, Right  ,Bottom,Top) 

■  *  *   t  *  *  *  *  *  *  *  *  *  i   *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  +  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  ' 


**** 

*  *  *  ¥ 


Routine  Title:  "   View- 
HP  BASIC  FILENAME:  ANALYSIS 

Department  of  Electrical  and  Computer^  Engineer ing , 
Kansas  State  University 


Revision 
1.0 


**** 
**** 

******************* 

****  Purpose: 

**** 

**** 

**** 
**** 
**** 
**** 
**** 
**** 
**** 

****  Routine(s)  Called 

**** 

**** 

**** 

**** 

**** 


Date 

Sept.  10,  1984 


Programer 
Michael  Masters 


*********** 


**** 

**** 
**** 
*  *  *  * 
**** 
**** 
**** 

**** 
**** 


£***** 

**** 


This  subroutine  defines  a  viewport  on  the  plotting**** 
device.  The  total  plotting  area  is  made  to  be  100  by  **** 
100.  By  using  this  routine  to  define  the  VIB\PORT  the**** 
plots  will  have  the  same  symetry  independent  of  which  **** 
axis  is  longer  .  **** 


None 


**** 
**** 
**** 
**** 

**** 


Parameters  passed  from  the  calling  routine 

Left  -  The  location  of  the  left  edge  of  the  plotting 
window  (0  to  100) . 


Right  -  The  location  of  the  right  edge  of  the  plotting**** 
window  (0  to  100  and  larger  than  Left).        **** 


Bottom  -  The  location  of  the  bottom  edge  of  the 
plotting  window. 


Top 


The  location  of  the  Top  edge  of  the  plotting 
window  (0  to  100  and  larger  than  Bottom). 


**** 

**  *  * 
**** 

**** 
*  *  *  * 


**** 
**  ** 

********************************************************************* 
********************************************************************* 

IF  RATIOl  THEN 

VIB\PORT  Left*RATIO,Right*RATIO,Bottom,Top 
ELSE 

VIEVWORT  Left, Right, Bottam/RATIO,Top/RATIO 
END  IF 
SUBEND 
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9755 

9760 

9765 

9770 

9775 

9780 

9785 

9790 

9795 

9800' 

9805 

9810 

9815 

9820 

9825 

9830 

9835 

9840 

9845 

9850 

9855 

9860 

9865 

9870 

9875 

9880 

9885 

9890 

9895 

9900 

9905 

9910 

9915 

9920 

9925 

9930 

9935 

9940 

9945 

9950 

9955 

9960 

9965 

9970 

9975 

9980 

9985 

9990 

9995 

10000 

10005 

10010 

10015 

10020 

10025 

10030 

10035 

10040 

10045 

10050 

10055 

10060 

10065 


SUB  Max_min(  INTEGER  Variable  ,Avg_type$, REAL  Max, Min) 

'-*i******************************************************************** 


********************************************* 

**** 
**** 


********************* 
**** 

****  Routine  Title:  Compute  maximum  and  minimum 

**** 

****  Revision 
****  


1.0 


Date  Programer 

Janurary  1,  1985    Michael  Masters 


**************************************************** 

**** 

**** 

***  * 

**** 

**** 
**** 
**** 
**  ** 
***  * 
**** 
**** 
**** 
*  **  * 
**** 
**** 


Parameters  passed  from  the  calling  routine 

Variable  -  The  parameter  for  which  the  maximum  and  min. 
values  are  desired. 

Avg_type$  -  Contains  the  desired  averaging  technique. 

Parameters  returned  to  the  calling  routine 

Max  -  The  maximum  averaged  value. 

Min  -  The  minimum  averaged  value. 

Rout  ine(s)  Called: 

Avg_breath  or  Avg_window. 


**** 
**** 
**** 
************** 
**** 

Purpose:  Determe  the  maximum  and  minum  values  of  the  resp-**** 
iratory  parameter  being  plotted.  **** 

**** 
**** 
**** 
**** 
**** 
**** 
*** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 

********************************************************************* 
********************************************************************* 

CCM  /Anal_data8/  Resp_var(0: 12, 1 :500) 

CCM  /Plot_resp_datal/   INTEGER  Qni  t_bad,Num_breaths ,No_b_avg 
CCM  /Plot_resp_data2/  Start_t  ime,End_t  ime  ,W_period,\V_™ith 
INTEGER  Br_pntr,Br_in__w_f lag,Nurn_bad_breaths 

Point   to   the   first   breath  and    initialize   the  maximum  and  minimum 

values  . 
Br_pntr=l 

Min=999999999999.9 
Max=-999999999999.9 
IF  Avg_type$= "AVERAGE"  THEN 

Determine  the  maximum  and  minimum  values  of  all  the  breaths  or 

averaged  breaths. 
REPEAT 

Avg_breath(Variable  ,Br_pntr  .Time  .Average  ,Nurn_bad_breaths) 

IF  Average>Max  THEN 
Max=Average 

END  IF 

IF  Average<Min  THEN 
Min=Average 

END  IF 

Br_pntr=Br_pntr+No_b_avg+Num_bad_breaths 
UNTIL  Br_pntr>Num_breaths 
ELSE 

W_cntr=Start_t  ime 
REPEAT 

Avg_window(Average  ,Br_in_w_f  lag, Vari able  ,Br_pntr  ,W_cntr) 
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10070 

IF  Br_in_w_flag  THEN 

10075 

IF  Ave  rage  >Max  THEN 

10080 

Max=Average 

10085 

END  IF 

10090 

IF  Average<Min  THEN 

10095 

Min=Average 

10100 

END  IF 

10105 

END  IF 

10110 

\V_cnt  r  JALcnt  r-W_pe  r  i  od 

10115 

UNTI L  W_cnt  r  >End_t  m 

10120 

END 

IF 

10125  SUBEND 

10130 

10135 

10140 

****  **** 

****  Routine  Title:  Average  breaths                        **** 

****  **** 

****  Revision     Date               Programer                **** 


**** 


**** 
*  *  *  * 


1.0 


Janurary  1,  1985 

************************ 


Michael  Masters 

**************** 


**** 


****** 
**** 


10145  SUB  Avg_breath(  INTEGER  Variable  ,Br_pntr  ,  REAL  Time  .Average  ,  INTEGER  Num_b 

ad_breaths) 

10150 

10155 

10160 

10165 

10170 

10175 

10180 

10185 

10190 

10195 

10200 

10205 

10210 

10215 

10220 

10225 

10230 

10235 

10240 

10245 

10250 

10255 

10260 

10265 

10270 

10275 

10280 

10285 

10290 

10295 

10300 

10305 

10310 

10315 

10320 

10325 

10330 

10335 

10340 

10345 

10350 

10355 

10360 

10365 

10370 


Purpose:  To  average  the  breath-by-breath  values  of  consec-**** 
utive  breaths.  Bad  breaths  may  be  orrmitted  in  the  **** 
average.  **** 

**** 

Parameters  passed  from  the  calling  routine  **** 

**** 

Variable  -  The  respiratory  parameter  being  averaged.   **** 

**** 

Br_pntr  -  points  to  the  initial  breath  to  be  averaged.  **** 

**** 

Num_bad_breaths  -  The  number  of  breaths  skipped  because**** 
they  were  a  'Bad  Breath*  **** 

**** 

Parameters  returned  to  the  calling  routine  **** 


Time  -  The  time  midway  between  the  first  breath 
averaged  and  the  last  breath  averaged. 

Average-The  average  of  the  specified  number  of  breaths 

None 


**** 
*  *  *  * 


*  *  ** 

*  *  ** 
**** 

**** 
**** 

*  *** 
**** 
**** 

****  Routine(s)  Called 

**** 

******************************************************* 

******************************************************* 
CCM  /Anal_data3/  INTEGER  Time_of_brth,02_cons  ,Co2_prod,  Insp_min_vent 
CCM  /Anal_data5/  INTEGER  Breath_good ,Resp_quot ient ,Form_fd$[ 1 ] 
CCM  /Anal_dataSa/  INTEGER  Frc_o2_cons  ,Frc_co2_prod,Volume_of_lung 
COM  /Anal_data8/  Resp_var(0: 12 , 1 :500) 

CCM  /Plot_resp_datal/  INTEGER  Omi  t_bad,Num_breaths  ,No_b_avg 
INTEGER  J, Pointer 


Sum  up  the  specified  number  of  breaths  to  determine  the  average 
value . 


********** 
********** 
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10375 

10380 

10385 

10390 

10395 

10400 

10405 

10410 

aths 

10415 

10420 

10425 

10430 

10435 

10440 

10445 

10450 

10455 

10460 

10465 

10470 

10475 

10480 

10485 

10490 

10495 

10500 

10505 

10510 

))/2 

10515 

10520 

10525 

10530 

10535 


Average=0 

J-0 

Nurn_bad_breaths=0 

Pointer=Br_pntr 

WHILE  J+l<=No_b_avg  AND  Pointer<=Nurn_breaths 

i 

IF  Cmit_bad  THEN 

WHILE  NOT  (Resp__var(Breath_good, Pointer))  AND  Point er<=Num_bre 

Nurn_bad_breaths=Num_bad_breaths+l 
Pointer=Br_pntr+J+Num_bad_breaths 
END  WHILE 
END  IF 


Ave rage=Average+Resp_yar (Variable .Pointer) 
J=J+1 

Pointer=Br_pntr+J+Num_bad_breaths 
END  WHILE 


Determine  the  average  and  the  time  which  is  centered 
about  the  number  of  breaths  which  are  averaged.  The 
value  of  J  is  used  rather  then  No_b_avg  in  the  event 
the  data  array  was  exhausted  before  the  specified  number 
of  breaths  had  been  averaged. 

Ave rage-Aver age /J 
Time=CResp_var(Time_of_brth,Br_pntr)+Resp_var(Time_of_brth,Pointer-l 

SUBEND 


10540 

r) 

10545 

10550 

10555 

10560 

10565 

10570 

10575 

10580 

10585 

10590 

10595 

10600 

10605 

10610 

10615 

10620 

10625 

1063O 

10635 

10640 

10645 

10650 

10655 

10660 

10665 

10670 

10675 

10680 

10685 

10690 

10695 

10700 

10705 

10710 

10715 

10720 

10725 

10730 

10735 

10740 

10745 

10750 

10755 

10760 

10765 

10770 

10775 

10780 

10785 

10790 

10795 

10800 

10805 

10810 

10815 

10820 

10825 

10830 

10835 

10840 

10845 

10850 

10855 


A7.101 
SUB  Avg_window(Average,  INTEGER  Br_in_5Y_f  lag, Variable  ,Br_pntr  , REAL  W_cnt 


****************************************** 
****************************************** 


**** 
**** 

****  Revision 
****     


*  *  * 


**** 

******** 

**** 


f**************** 
***************** 
**** 
**** 
**** 
**** 
**** 

Janurary  1,  1985    Michael  Masters  **** 

**** 

****************************************************** 


Routine  Title:  Average  a  time  window. 

Date  Programer 

1.0 


**** 
**** 


**** 
**** 


**** 
**** 


**** 
**** 


Purpose:  To  compute  the  average  of  the  breath-by-breath 
values  occurring  in  a  time  window. 

Parameters  passed  from  the  calling  routine 

Variable  -  The  respiratory  parameter  being  averaged. 
Br_pntr  -  points  to  the  initial  breath  to  be  averaged, 
W_cntr  -  the  time  which  the  widow  is  centered  around. 

Parameters  returned  to  the  calling  routine 

Average  -  The  average  of  all  breaths  in  the  window. 

Br in_w_flag  -  Set  to  true  if  the  window  did  contain 

data  and  set  to  false  if  it  did  not. 


**** 
**** 


**** 
**** 


**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 


****     Routine(s)  Called:  None 

**** 

********************************************************************* 

********************************************************************* 

CCM  /Anal_data2/  INTEGER  True, False 

OCM  /Anal_data3/  INTEGER  Time_of_brth,02_cons  ,Co2_prod,  Insp_min_vent 

COM  /Anal_dataS/  INTEGER  Breath_good ,Resp_quot ient ,Form_fd$[ 1 ] 

CUM  /Anal_data5a/  INTEGER  Frc_o2_cons  ,Frc_co2__prod  ,Volume_of_lung 

COM  /Anal_data8/  Resp_var(0:12,l :500) 

CUM  /Plot_resp_datal/  INTEGER  Umi  t_bad,Num_breaths  ,No_b_avg 

COM  /Plot_resp_data2/  Start_t  ime  ,End_time  ,W_per  iod.Wvdth 

INTEGER  Num_b_in_window,Fstbr_in_w_fnd 

Find  the  first  breath  in  the  window. 
Left_edge_w=W_cntr-W_yvdth/2 

REPEAT 

SELECT  Resp_var(Time_of_brth,Br_pntr) 
CASE  >=Left_edge_w 

I  Breath  is  right  of  the  left  window  edge. 
IF  Br_jmtr=l  THEN 

Fstbr_in_!Y_fnd=True 
ELSE 

IF  Resp_var(Time_of_brth,Br_pntr-l)<Lef  t_edge_w  THEN 
!  The  first  breath  in  the  window  has  been  found 

Fs  tbr in_w_fnd=True 

ELSE 

Br_pn t r=Br_pnt r - 1 
END  IF 
END  IF 
CASE  <Left_edge_w 

!  Breath  is  left  of  the  left  window  edge. 
Br_pnt  r=Br_pnt  r+1 
Fs  tbr_in_w_fnd=Fa  1  se 
END  SELECT 


A7.102 


10860 

10865 

10870 

10875 

10880 

10885 

mjbrea 

10890 

10895 

10900 

10905 

10910 

10915 

10920 

10925 

10930 

10935 

10940 

10945 

10950 

10955 

10960 

10965 

10970 

10975 

10980 

10985 

10990 


UNTIL  Fstbr_ih_w_I'nd  OR  Br_pntr>Nurn_breaths 


! 
! 

Num_b_i  n_wi  ndow=0 
Average=0 

■WHILE  Resp_var(Ti^K_of_brth,Br_pnt^)<W_cntr+\^L5^dth/2  AND  Br__pntr<=Nu 
ths 

!  If  the  breath  is  not  good  and  bad  breaths  are  to  be 

!  omitted  do  not  include  this  breath,  otherwise  include  it. 

IF  Qnitjbad  AND  NOT  (Resp_var(Breath_good,Br_pnt  r) )  THEN 

Br_pntr=Br_pntr+l 
ELSE 

Ave rage=Average+Resp_var (Variable ,Br_pntr) 
Br_pn t r=Br_pnt r+1 
Num_b_i  n_wi  ndow=Num_b_i  n_wi  ndowf  1 
END  IF 
ENDW1ILE 
IF  Num_b_in_windcmM)  THEN 

Br_i  n_w_J  1  ag=Fa  1  s  e 
ELSE 

Br_i  n_w_f  1  ag=True 
Ave  rage=Ave  rage /Num_b_in_wi  ndow 
END  IF 
SUBEND 
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10995 

11000 

11005 

11010 

11015 

11020 

11025 

11030 

11035 

11040 

11045 

11050 

11055 

11060 

11065 

11070 

11075 

11080 

11085 

11090 

11095 

11100 

11105 

11110 

11115 

11120 

11125 

11130 

11135 

11140 

11145 

11150 

11155 

11160 

11165 

eq 

11170 

11175 

11180 

11185 

11190 

11195 

11200 

11205 

11210 

11215 

11220 

11225 

11230 

11235 
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11245 

11250 

11255 
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11270 

11275 

11280 

11285 

11290 

11295 

11300 

11305 

11310 


SUB  Make_axes(  INTEGER  Variable  ,Corr_flag  ,  REAL  Min.Max) 

***********************************  *'*  ******************************** 
********************************************************************* 
****  **** 

****  Routine  Title:  Make  axes  **** 

****  ***# 

****  Revision     Date 

****  

****    l.O       Janurary  1,  1985    Michael  Masters 
**** 


Programer 


**** 
**** 

**** 
*  *  *  * 


*************************************** 
**** 

Purpose:   Used  to  draw  the  axes  on  the  plotting  device  and*** 


************************** 
**** 


**** 
**** 
**** 
**** 
**** 
**** 

*  *** 

*  *  ** 
**** 

**** 

*  *  ** 
**** 
**** 

**** 


label  plots  for  the  breath-by-breath  data. 

Parameters  passed  from  the  calling  routine 

Variable  -  The  prameter  to  be  plotted;  O2_cons, 
Co2__prod,etc . 


**** 
**** 
**** 

**** 
*  *** 


Corr__flag  -  Set  to  true  if  temperature  and  viscosity  **** 
corrections  were  used  in  analyzing  the  data.     **** 

*  *  *  * 

Min  -  The  minimum  value  of  the  parameter  to  be  plotted**** 

**** 

Nfax   -  The  maximum  value   of   the   parameter   to  be   plotted**** 


»***     Routine(s)  Called: 


None 


**** 

********************************************************************* 
********************************************************************* 

OCM  /Anal_data3/  INTEGER  Time_of_brth,02_cons  ,Co2_prod ,  Insp_min_vent 
(XM  /Anal_data4/  INTEGER  Expr_min_vent  ,V_t id_insp,V_t id_expr,Resp_Jr 

OCM  /Anal_data5/  INTEGER  Breath_good ,Resp_quot ient ,Form_fd$[ 1 ] 
(XM   /Anal_data5a/  INTEGER  Frc_o2_cons  ,Frc_co2_prod>Volume_of_lung 
CCM  /Plot_resp_data2/  Start_t  ime  ,End_time  ,W_per  j0d  .Wjwdth 
DIM  HeadingS(l:ll)[30] 

Define  the  individual  plot  titles . 

Heading$(02_cons)='Minute  02  Consumption" 
Heading$(Co2_prod)="Minute  C02  Production" 
Heading$(Frc_o2_cons)="Aveolar  Minute  02  Consumption" 
Heading$(Frc_co2_prod)="Aveolar  Minute  C02  Production" 
HeadingS(Insp_jnin_vent )="Inspi ratory  Minute  Ventilation" 
Heading$(Expr_miri_vent  )="Expiratory  Minute  Ventilation" 
Heading$(Y_tid__insp)="Inspi ratory  Tidal  Volume" 
Heading$(V_t  id_expr)="Expi  ratory  Tidal  Volume" 
He  ad  i  ng  $  ( Vo  1  ume_o  f_l  ung  )="Lung  Vo  1  ume  " 
Head ing$(Resp_J"req)="Respi ratory  Frequency" 
Head ing$(Resp_quot ient )="Respi ratory  Quot  ient" 

Define  the  plotting  area  and  make  the  axes. 

Top^fax+ .  2*  (Max  -Mi  n ) 

Bot  t orn^lin- . 26* (Max -Mi n ) 

Le  f  t=S  t  a  r  t_t  ime  -  .  1  *  (End_t  ime  -Star  t_t  ime  ) 

Right=End_time+.05*(End__t  ime -Star  t_t  ime) 

FRAME 

WINDOV  Left  ,Right  ,Bottom,Top 
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11315 
11320 
11325 
11330 
11335 
11340 
11345 
11350 
11355 
11360 
11365 
11370 
11375 
11380 
11385 
11390 
11395 
11400 
11405 
11410 
11415 
11420 
11425 
11430 
11435 
11440 
11445 
11450 
11455 
11460 
11465 
11470 
11475 
11480 
11485 
11490 
11495 
11500 
11505 
11510 
11515 
11520 
11525 
11530 
11535 
11540 
11545 
11550 
11555 
11560 
11565 
11570 
11575 
11580 
11585 
11590 
11595 
11600 
11605 
11610 
11615 
11620 
11625 
11630 
11635 


CLIP  Star t_t  ime  ,End_t  ime  ,Min, Max 

Xt  i  ck-(Start_t  ime  -End_t  ime  )/10 

Ytick=(Max-Min)/4 

AXES  Xtick,Ytick,Start_time,Min 

Label  the  time  axis. 
CLIP  Lef t, Right ,Bottam,Top 
LORG  6 
CSIZE  3 
FOR  X=Start_time  TO  1 .0S*End_t  ime  STEP  (End_t  ime-Start_t  ime)/S 

M3VE  X,Min-(Max-Min)/75 

LABEL  DROUND(X,3) 
NEXT  X 
LORG  4 

MOVE  ( Star t_time+End_t ime )/2, Bottom 
LABEL  "Data  collection  Time  (seconds)" 

Label  the  axis  of  the  dependent  variable 
LORG  8 
FOR  Y=Min  TO  1.05*Max  STEP  (Max-Min)/4 

M3VE  Start_time,Y 

LABEL  DROUND(Y,3) 
NEXT  Y 
IF  Variable=Resp_quot ient  THEN 

M3VE  Start_t  ime  ,1 

ERAW  End_t  ime  ,  1 
END  IF 

Put  the  apporiate  units  on  the  dependent  axis. 
LORG  3 

M3VE  Left, Top 
SELECT  Variable 
CASE  =Resp_freq 

LABEL  "  BrPM" 
CASE  =V_tid_insp,=V_t  id_expr  ,=Volume__of_lung 
IF  Corr_flag  THEN 

LABEL  "  Liters  (BTPS)" 
ELSE 

LABEL  "  Liters" 
END  IF 
CASE  -Insp_min_yent  ,«Expr_min_vent 
IF  Corr_Jlag  THEN 

LABEL  "  L/Min  (BTPS)" 
ELSE 

LABEL  "  L/Min" 
END  IF 
CASE  =02_cons  ,=Co2_prod  ,=Frc_p2_cons  ,=Frc_co2_prod 
IF  Corr_flag  THEN 

LABEL  "  L/Min  (STPD)" 
ELSE 

LABEL  "  L/Min" 
END  IF 
CASE  =Resp_quot ient 

!  Respiratory  quotient  is  unitless. 
END  SELECT 


!  Label  the  plot. 

I 

MOVE  End_t  ime  ,Top 
LORG  9 
CSIZE  4 

LABEL  Heading$(Variable)&"  .vs.  Time" 
CLIP  Start_time,End_t  ime  ,Min,Max 
SUBEND 


A7.10S 


11640  ! 

11645  ! 

11650  ! 

11655  ! 


11660 
11665 
11670 
11675 
11680 
11685 
11690 
11695 
11700 
11705 
11710 
11715 
11720 
11725 
11730 
11735 
11740 
11745 
11750 
11755 
11760 
11765 
11770 
11775 
11780 
11785 
11790 
11795 
11800 
11805 
11810 
11815 
11820 
11825 
11830 
11835 
11840 
11845 
11850 
11855 
11860 
11865 
11870 
11875 
11880 
11885 
11890 
11895 
11900 
11905 
11910 
11915 
11920 
11925 
11930 
11935 
11940 
11945 


SUB  PI o Lvalues (INTEGER  Variable ,Avg_type$) 

-********************************************************************* 


********************************************************************* 
****  **** 

**** 
**** 


****  Routine  Title:  Plot  breath-by-breath  data. 

**** 


****  Revision 
****  


Date  Programer 

Janurary  1,  1985    Michael  Masters 


«*** 


**** 

»«»«    10 
**** 

******************* 
****  **** 

****  Purpose:   To  plot  the  breath  by  breath  data  using  the     **** 
specified  averaging  technique 


********************************* 


**** 
**  ** 
*  *** 
**** 
**** 
**  ** 
**** 
**  ** 
**** 
**** 
**** 


Parameters  passed  from  the  calling  routine 

Variable  -  The  parameter  to  be  plotted. 

Avg_type$  -  Contains  the  desired  averaging  technique. 

Parameters  returned  to  the  calling  routine 
None 

Routine(s)  Called: 

Avg_breath  or  Avg_svindow 


**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**#* 
**** 
**** 


********************************************************************* 
********************************************************************* 


COM  /Anal_data8/  Resp_var(0:12, 1 :500) 

CUM  /Plot_resp_datal/   INTEGER  Qni  t_bad,Num_breaths  ,No_b_avg 
COM  /Plot_resp_data2/  Start_t  ime  ,End_t  ime  .VLper  iod.WjMlth 
INTEGER  Br_pntr,Br_in_5V_flag,Num_bad_breaths 
LORG  5 
CSIZE  1.5 
Br_pntr=l 

IF  Avg_type$="AVERAGE"  THEN 
REPEAT 

Avg_breath(Variable ,Br_pntr .Time  .Average ,Num_bad_breaths) 
M3VE  Time  .Average 
LABEL  "0" 

Br_4)ntr=Br_pntr+No_b_avg+Num_bad_breaths 
UNTIL  Br_pntr>Num_breaths 
ELSE 

W_cn  t  r=S  t  a  r  t_t  ime 
REPEAT 

AvgjyindovXAverage  ,Br_in_5\L_f  lag, Vari able  ,Br__pntr  ,W_cntr ) 
IF  Br_injv_Jflag  THEN 
MOVE  W_cntr .Average 
LABEL  "O" 
END  IF 

W_cnt  r=^V_cnt  r4W_pe  r  i  od 
UNTIL  W_cntr>End_t  ime 
END  IF 
SUBEND 
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****  Routine  Title:  Print  breath-by-breath  data. 
****  Revision     Date  Programer 


**** 


1.0 


***************** 


Janurary  1,  1985 

****************** 


Michael  Masters 

***************** 


**** 
**** 
**** 


**** 
**  *  * 


Purpose:   To  print  the  breath  by  breath  data  using  the 
specified  averaging  technique. 

Parameters  passed  from  the  calling  routine 

Avg_type$  -  Contains  the  desired  averaging  technique. 

Parameters  returned  to  the  calling  routine 
None 


Rout i nets)  Called: 

Avg_breath  or  Avg_window 


11950  SUB  Print_results(Avg_type$) 

11955   i********************************************************* 

1 1 960  I********************************************************* 

11965 

11970 

11975 

11980 

11985 

11990 

11995 

12000 

12005 

12010 

12015 

12020 

12025 

12030 

12035 

12040 

12045 

12050 

12055 

12060 

12065 

12070 

12075 

12080 

12085 

12090 

eq 

12095 

12100 

12105 

12110 

12115 

12120 

12125 

12130 

12135 

12140 

hs 

12145 

12150  ! 

12155  ! 

12160 

12165 

12170 

12175 

12180 

12185 

12190 

own." 

12195 

12200 

avg 

12205 

,No_b_avg 

12210 


******** 
******** 


**** 
**** 
**** 


**** 
**** 
********************************************************************* 
********************************************************************* 
CCM  /Anal_data3/  INTEGER  Time_pf_brth,02_cons  ,Co2_prod ,  Insp_jnin_vent 
CCM  /Anal_data4/  INTEGER  Expr_min_vent  ,V_t  id_insp,V_t  id_expr  ,Resp_f  r 

CCM  /Anal_data5/  INTEGER  Breath_good,Resp_quot ient ,Formfd$[l ] 

CCM  /Anal_data5a/  INTEGER  Frc_o2_cons  ,Frc_co2_prod,Volume_pf_lung 

CCM  /Anal_data6/  INTEGER  Corr_f lag, REAL  Roam_Jh2o,T 

CCM  /Anal_data8/  Resp_var(0: 12, 1 :500) 

CCM  /Anal_data9/  Name$[25]  ,Canment$[46] 

CCM  /Cal_datal/  Cal$[ 10]  ,Date$[2S] 

CCM  /Plot_resp_datal/  INTEGER  Qni  t_bad,Nurn_breaths  ,No_b_avg 

CCM  /Plot_resp_data2/  Start_t  irne  ,End_t  ime  ,W_period,\V_wdth 

DIM  Values(l:ll) 

INTEGER  Br_pntr  ,Br_index,Br_in_w_f  lag,  1  ,  Some_r  s_t  o_b  i  g  ,Num_bad_breat 

Some_r  s_t  o_b  i  g= ( 1  =0 ) 


"Date:    ",Date$ 
"Comnent :  ",Conment$ 
'Subject  identifier: 


,Name$ 


PRINTER  IS  9 
PRINT  USING  "K,K,/"; 
PRINT  USING  "K,K,/"; 
PRINT  USING  "K,K,/"; 
IF  Avg_type$="AVERAGE"  THEN 
IF  No_b_avg=l  THEN 

PRINT  USING  "K";"The  individual  breath-by-breath  values  are  sh 

ELSE 


12215 
12220 
12225 


PRINT  USING  "K,K,/";"The  number  of  breaths  averaged  is  ",No_b_ 

PRINT  USING  "#,K,K";"The  breaths  are  combined  by  AVERAGING.   " 

PRINT  USING  "K,2/";"  successive  breaths  are  averaged  together. 

END  IF 
ELSE 

PRINT  USING  "K,nXD.D,K,/";"The  window  period  is  "  ,W_pe  r  i  od  ,  "  sec 
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onds" 

12230      PRINT  USING  "K, ECCD. D,K,/";"The  window  width  is  ",Wwdth,"  secon 

ds" 

12235      PRINT  USING  "K  ,K,K";  'The  starting  time  is  ",Start_t  ime  , "  seconds" 

12240      PRINT  USING  "K,K,K, /"; "The  ending  time  is   ",End_time,"  seconds" 

12245      PRINT  USING  "#,K";"The  breaths  are  combined  by  WINDOWING.  The  br 

eaths  occurring" 

12250      PRINT  USING  "K,K,K";"  in  a  window  ".WjMith,"  second(s)  wide  are  a 

veraged . " 

12255      PRINT  USING  "#,K,K";"The  center  of  the  window  is  moved  ",W_period 

12260      PRINT  USING  "K";"  seconds  between  successive  averages.  The  cente 

r  of  the"  . 

12265      PRINT  USING  "#,K,K"; "first  window  is  ",Start_time 

12270      PRINT  USING  "K,K,K,2/" ;"  seconds  and  the  ending  time  is  ",End_tim 

e,"  seconds." 

12275    END  IF 

12280    IF  Cmit_bad  THEN 

12285       PRINT  "   *  BAD  BREATHS  OMITTED  *" 

12290      PRINT  USING  "#,K";"The  bad  breaths  are  not  included  in  the  averag 

ing  technique . " 

12295       PRINT  USING  'X";"  Bad  breaths  are  those  breaths  with" 

12300      PRINT  USING  "#,K";"an  inspi ri ratory  volume  or  an  expiratory" 

12305       PRINT  USING  "K,2/";"  volume  of  less  than  0.4  Liters." 

12310    END  IF 

12315    PRINT  USING  "#,K";"The  R'  value  is  equal  to  the  averaged  CD2  produce 

d  value  " 

12320    PRINT  USING  "K";"divided  by  the  averaged  02  consumed  value.   It  is" 

12325    PRINT  USING  "#,K";"a  better  estimate  of  the  true  R  value  for  the  bre 

aths  " 

12330    PRINT  USING  "K,2/";"averaged  than  the  average  of  the  individual  R  va 

lues ." 

12335    PRINT  "  I  Alveolar  I  Alveolar  I" 

12340    PRINT  USING  "#,K";" I      I    02    I   CD2    I    02    I   002 

I  Resp.    I" 
12345    PRINT  USING  "K";"  Averaged  I  Ventilation   I  Tidal  Volume   I  Resp. 

12350    PRINT  USING  "#,K";"I  Time  I  Consumed  I  Produced  I  Consumed  I  Produce 

d  I  Quotient  I" 

12355    PRINT  USING  "K";"C02/02  :R' I  Insp.  I  Expr.  I  Insp.  I  Expr .  !  Freq. 

I  Lung   I " 

12360    PRINT  USING  "#,K";" I  (sec)l  (L/min)   1  (L/min)   I  (L/min)   I  ICL/min) 

12365    PRINT  USING  "K";"         I  (L/min)  I  (L/min)  I   (L)   I   (L)   Kbr/min) 

I  Vol.  (L)l" 

12370    IF  Corr_flag  THEN 

12375       PRINT  USING  "#,K";"I       I   (STPD)   I   (STPD)   I   (STPD)   I   (ST 

PD)   I  -         I" 

12380       PRINT  USING  "K";"  I  (BTPS)I  (BTPS) I  (BTPS)I  (BTPS) I 

I  (BTPS)   I" 
12385    END  IF 

12390    PRINT  USING  "#,K";"I I I I I 

I I" 


12395 

! 


PRINT  USING  "K";' 


I 


I 


I 


_l_ 


I 


12400  Br_pntr=l 

12405  IF  Avg_type$="AVERAGE"  THEN 

12410       REPEAT 

12415  FOR  I=02_cons  TO  Resp_quot  ient 

12420  Avg_breath( I ,Br_pntr .Time .Average ,Num_bad_breaths) 

12425  Valuest I )=Average 

12430         NEXT  I 

12435  PRINT  USING  "#,K,4D.D.K"  ;"  I  "  .Time  ,"  !  " 

12440         GOSUB  Print_line 

12445         Br_pntr=Br_pntr+No_b_avg+Num_bad_br  eaths 

12450      UNTIL  Br_pntr>Num_breaths 

12455  ELSE 
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12460  'W_cntr=Start_time 

12465  REPEAT 

12470  FOR  l=02_cons  TO  Resp_quot  ient 

12475  Br_index=Br__pntr 

12480  Avg_window(Average,Br_in_s"i_f  lag,  I  ,Br_index,ViL_cntr) 

12485  Values(I)=Average 

12490  NEXT  I 

12495  Br_pntr=Br_index 

12500  PRINT  USING  "#,K,ECED.D,K" ;"  I  "  ,AY_cntr  , "  I  " 

12505  IF  Br_in_w_JTag  THEN 

12510  GOSUB  Print_line 

12515  ELSE 

12520  PRINT  "    ****    The  window  did  not  contain  any  breaths 

12525  END  IF 

12530  W_cntr=W_cntr+W_period 

12535  UNTIL  W_cnt  r>End_t  ime 

12540  END  IF 

12545    PRINT  USING  "#,K";"I I I 1 ' 

I 1" 


12550 
I 


PRINT  USING  "K" 


_L 


I 


I 


12555 

12560 

12565 

12570 

99" 

12575 

12580 

12585 

12590 

12595 

12600 

12605 

12610 

12615 

12620 

12625 

12630 

12635 

12640 

12645 

12650 

12655 

12660 

12665 

s))," 

12670 

12675 

12680 

12685 

12690 

12695 

12700 

12705 

12710 

12715 

12720 

12725 

12730 

12735 

12740 

12745 

12750 


IF  Some_rs_to_big  THEN 
PRINT 

PRINT  USING  "#,K";" 
PRINT  USING  "K";"**.***  The  averaged  R  value  was  larger  than  99.9 

END  IF 

PRINT  USING  "#,21" 
PRINTER  IS  1 
SUBEXIT 
Print_line:    ! 

PRINT  USING  "#,K,DD.3D,K" 
PRINT  USING  "#,K,DD.3D,K" 
PRINT  USING  "#,K,CD.3D,K" 
PRINT  USING  "#,K,DD.3D,K":"   "  .Values(Frc_co2_prod) ,  " 


\Values(02__cons) ,"   I 
\Values(Co2_prod)," 
',Values(Frc_o2_cons)  , 
',Values(Frc_co2_prod) 


I" 


IF  Values(Resp_quotient)<100  THEN 

PRINT  USING  "#,K,DD.3D,K";"  " ,Values(Resp_quot ient ) , "   I" 
ELSE 

PRINT  USING  "#,K";"  *«.»**   I" 

Some_rs_to_big=(  1=1 ) 
END  IF 

IF  ABS(Values(Co2_prod)/Values(O2_cons))<100  THEN 

PRINT  USING  "#,K,DD.3D,K";"  " ,ABS(Values(Co2_prod) /Values(02_con 

ELSE 

PRINT  USING  "#,K";"   **.***   I" 

Same_r  s_to_b  ig=(  1=1 ) 
END  IF 


PRINT  USING  "#,K,3D.DD,K" 
PRINT  US IN3  "#,K,3D.ED,K" 
PRINT  USING  "#,K,DD.TX),K" 
PRINT  USING  •V.K.DD.ED.K" 
PRINT  USING  "#,K,3D.2D,K" 
PRINT  USING  "#,K,DD.3D,K" 
PRINT 
RETURN 
SUBEND 


",Values( Insp_min_vent) ," I 
"  ,Va  lue  s  (Expr_min_vent ) , "  I 
",Values(V_t  id_insp)  ,"  I" 
",Values(V_t  id_expr)  ,"  I" 
",Values(Resp_f  req) ,"  I" 
"  ,Va  lue  s  (Vo  1  ume_of_lung ) , ' 
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12755 
12760 
12765 
12770 
12775 
12780 
12785 
12790 
12795 
12800 
12805 
12810 
12815 
12820 
12825 
12830 
12835 
12840 
12845 
12850 
12855 
12860 
12865 
12870 
12875 
12880 
12885 
12890 
12895 
12900 
12905 
12910 
12915 
12920 
12925 
12930 
12935 
12940 
12945 
12950 
12955 
12960 
12965 
12970 
12975 
12980 
12985 


SUB  Expanded_dump 

I********************************************************************* 


i************************************ 
I  * *** 

!****  Function  Title :  Expanded  graphics  dump. 

I  **** 

!«***  Revision     Date  Programer 

i****  

i  **** 


1.0 


****************************** 
**** 
**** 
**** 
**** 
**** 

Michael  Masters  **** 


March  1,1985 

**** 

***************************************** 

**** 


i  **** 

i****  Purpose:  To  dump  the  screen  to  the  printer  and  expand  the  **** 
size  by  4  to  1 .   Simply  use  the  conmand  **** 


i  *** 
i  **** 
i  **** 
i  *  *  *  * 
i  **** 
i  **** 


CALL  Expanded_dump 
This  command  is  keyboard  executable. 


**** 
**** 
**** 
**** 


Parameters  passed  from  the  calling  routine 

!»■»»      None  "** 

;****  **** 

i********************************************************************* 
i********************************************************************* 

GRAPHICS  OFF 

PRINT  "ADJUST  THE  THERMAL  PAPER  TO  THE  TOP  OF  THE  PAGE" 

PRINT  "AND  PRESS  CONTINUE." 

BEEP 

PAUSE 

PRINT  CHR$(12) 

GRAPHICS  ON 

DUMP  DEVICE  IS  701, EXPANDED  !  Set  to  the  expanded  mode 

Adjust  the  right  side  of  the  paper  so  that  the  figure 

will  fit  on  the  page 
PRINTER  IS  701 
PRINT  CHR$(27)&"*r70xA" 
PRINTER  IS  1 
DUMP  GRAPHICS 

Readjust  the  right  side  of  the  paper  so  that  the  normal 
dumps  are  centered  on  the  page. 
PRINTER  IS  701 
PRINT  CHR$(27)&"*rl75xA" 
DUMP  DEVICE  IS  701 
PRINTER  IS  1 
BEEP 
SUBEND 
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A7  . 7   STOREHR :  _a_  Basic  Program  Which  Stores  the  Heart  Rate  Values 

The  STOREHR  program  is  used  to  store  the  subjects  experimental 
heart  rate  data  in  a  file  compatible  with  Sprick's  plotting  program 
[16].  The  data  are  entered  by  the  operator.  Once  entered  the  operator 
has  the  opportunity  to  review  the  data  and  make  any  necessary 
correct  ions . 

A7  .  7  . 1  Ih£_  Ma_Ln_  Routine  of  STOREHR 

The  main  routine  provides  the  operator  prompts  necessary  to 
obtain  the  heart  rate  data.  The  data  are  stored  in  the  file  format 
specified  by  Sprick  [16].  This  format  is  necessary  in  order  to  use 
Sprick's  plotting  routine. 

ConTOQn  Blocks  Used  iy_  the  Sub  rout  ine 
None 

Variable  def ini  t  ions 

Heart_rate  -  a  real  array  which  contains  the  heart  rate  data. 
I       -  a  real  variable  used  in  conjunction  with  the  variable  J 

as  a  pointer  into  the  Heat_rate  array. 
J      -  a  real  variable  used  in  conjunction  with  the  variable  I 

as  a  pointer  into  the  Heat rate  array. 

NameS   -  a  string  variable  equal  to  an  operator  defined  file 

name.   The  heart  rate  data  are  stored  in  the  file 

specified  by  Name$. 
Pointer  -  a  real  variable  used  as  a  pointer  into  the  Heart rate 

array. 
Q$      -  a  string  variable  used  to  obtain  the  operator's  response 

to  a  question. 
True    -  a  real  variable  used  as  the  Boolean  value  of  true. 
Value   -  a  real  variable  used  as  a  pointer  into  the  Heart rate 

array. 

A7 . 7 . 2   Load  autost  Subrnut  ine 

The  Load_autost  subroutine  loads  the  AUTOST  (A7.3)  program  into 
memory.   The  AUTOST  program  begins  execution  once  loaded. 
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Cnnmnn  Rl  neks  Used  by  the  . 
None 

Var  iahl es  passed  to  the  . 
None 

Variables  returned  _b_y_  the  procedures 
None 


A7 . 7 . 3  Load  plot  Subroutine 

The  Load_plot  subroutine  loads  the  PLOT  program  developed  by 


Sprick  [16]  into  memory, 
loaded . 


The  PLOT  program  begins  execution  once 


Common  . 


None 


None 


Used  bv  the  . 


.  XSL   the  , 


Va  r  i  a  h  I  e  s  returned  .b_y_  the  . 
None 


A7 . 7 . 4   Opt  i  ons  Subrout  ine 

The  Options  subroutine  presents  the  operator  with  the  options 
which  may  be  taken  once  the  data  have  been  entered  and  stored.  These 
options  give  the  operator  the  ability  to  load  the  AUTOST  program,  load 
the  PLOT  program,  or  store  additional  heart  rate  data. 

Cnrrmon  Bl  ocks  Used  _b_y_  the  . 
None 


.  SSL   the  . 


None 


Variahl  es  returned  _b_y_  the  procedures 
None 


*** 
*** 
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A7.7.5  STOREHR  Program  Listing 

10  j********************************************************************* 

20  g***************xs**************************************************** 

30  i  *  *  *  *                                                    *  *  * 

40  !****  Routine  Title:      Store  Heart  Rate                     *** 

50!****  *** 

60  !****  HP  BASIC  FILENAME:   STOREHR 

70  j  *  *  *  * 

gO  i****  Department  of  Electrical  and  Computer  Engineering 

90  j****  Kansas  State  University                               *** 

100  I****                                                        *** 

110  I****  Revision     Date              Programer                *** 

120    j****  *** 

130  !****    1.0       August  20,  1984     Michael  Masters           *** 

140  I****                                                    *** 

150  i********************************************************************* 

160  I****                                                        *** 

170  I****  Purpose:  To  store  the  heart  rate  of  the  subject  as  recorded*** 

180  I****           by  the  heart  rate  monitor.  The  heart  rate  is     *** 

190  I****           for  each  30  second  interval.                   *** 

200  !****                                                    *** 

210  i*********************s***********x*********************************** 

220  GCLEAR 

230  CALL  Options 

240  PRINT  CHR$(12) 

250  PRINT  "**************************************************" 

260  PRINT  "*                                           *" 

270  PRINT  "*                                           *" 

280  PRINT  "*           Save  the  heart  Rate               *" 

290  PRINT  "*                                         *" 

300  PRINT  "*                                         *" 

310  PR I NT  "**************************************************" 

320  DIM  Heart_xate(l:50) 

330  PRINT 

340  PRINT 

350  PRINT  "Enter  the  file  name.  The  file  will  be  stored  on" 

360  PRINT  "the  data  disk  in  a  format  which  can  be  read  by" 

370  PRINT  "the  PLOT  routine." 

380  BEEP 

390  INPUT  "Enter  the  name  of  the  Heart  Rate  file",NameS 

400  True=(l=l) 

410  Pointer-0 

420  PRINT  CHR$(12) 

430  PRINT 

440  PRINT 

450  PRINT  "Enter  the  heart  rate  for  each  30  second  interval." 

460  PRINT 

470  PRINT  "If  you  have  entered  all  heart  rate  values;" 

480  PRINT  "    Enter  a  negative  number  in  response  to  the" 

490  PRINT  "   'Enter  the  Heart  Rate'  prompt." 

500  PRINT 

510  PRINT  "You  will  be  given  an  opportunity  to  correct  any" 

520  PRINT  "mistakes  at  a  latter  time." 

530  REPEAT 

540  Pointer-Pointer+1 

550  PRINT  TABXYf  1,24)," 

560  PRINT  TABXYCl, 24), "Enter  the  heart  rate  for  the  time,  t=";(Pointer- 

1 )  * .  5 ; "  mi  n . " 

570  BEEP 

580  INPUT  Heart_rate(Pointer) 

590  UNTIL  Heart_rate(Pointer)<0 

600  Pointer=Pointer-l 

610  FOR  J=l  TO  Pointer  STEP  10 
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620  Print_va lues :True=( 1=1) 


1=0 

PRINT  CHR$(12) 

PRINT 

PRINT 

PRINT  "Value 

W1ILE  True 

IF  I+J<=Pointer  AND  I<10  THEN 

PRINT  USING  "X,DD,7X,DD.D,8X,DDDD";  I+J  ;(I  +  J- 


Time 


Heart  Rate" 


630 

640 

650 

660 

670 

680 

690 

700 

l)*.5;Heart_rate(I+J) 

710        ELSE 

720'  True=(l=0) 

730         END  IF 

740         1  =  1  +  1 

750      END  WIILE 

760      Q$="N" 

770      BEEP 

780  Change:INPUT  "Do  you  wish  to  change  any  of  these  values?  (Y/N)",Q$ 


790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 


"y"  AND  Q$<>"Y"  THEN  Change 


IF  Q$o"N"  AND  Q$o"n"  AND  Q$ 
IF  Q$="y"  OR  Q$="Y"  THEN 
Value=0 
BEEP 

INPUT  "Which  value  do  you  wish  to  change? ".Value 
IF  ValueoO  THEN 
BEEP 

INPUT  "Enter  the  new  value .",Heart_rate(Value) 
GOTO  Print_values 
END  IF 
END  IF 
Q$="" 
NEXT  J 


Store  the  heart  rate  values. 


PRINT  CHR$(12) 

PRINT 

PRINT 

PRINT  "Storing  the  values" 

CREATE  BDAT  Name$&":HP989S,700" ,Pointer*8/256+l 

ASSIGN  «Pathl  TO  "NameS&":HP9895,700" 

ON  END  aPathl  GOTO  1050 

OUTPUT  @Pathl;Pointer 

OUTPUT  ®Pathl;Heart_rate(») 


PRINT  CHR$(12) 

PRINT 

PRINT  "You  may  obtain  a  plot  of  these  values  using" 

PRINT  "Sprick's  PLOT  routine.  To  obtain  a  plot  answer" 

PRINT  "Y  to  the  next  question" 

Q$="N" 

BEEP 

INPUT  'V*uld  you  like  to  plot  the  values?  (Y/N)",Q$ 

SELECT  Q$ 

CASE  ="Y",="y" 

PRINT  CHR$(12) 

PRINT 

PRINT 

PRINT  "\Mien  instructed  by  PLOT  to  enter  the  X  axis  label, 
"'enter  TIME  using  capital  letters" 


PRINT 
PRINT 
PRINT 
PAUSE 
PRINT  CHR$(12) 


Press  CONTINUE  when  you  are  ready  to  proceed. 
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1260  PRINT 

1270  PRINT  "    Now  loading  PLCTT" 

1280  CALL  Load_plot 

1290  CASE  ="N",="n" 

1300  PRINT  CHR$(12) 

1310  PRINT 

1320  PRINT  "Program  run  complete" 

1330  CASE  ELSE 

1340  GOTO  1120 

1350  END  SELECT 

1360  CALL  Options 

1370  END 

1380  SUB  Options 

1390  Keys:   ! 

1400  ON  KEY  1  LABEL  "PLOT"  CALL  Load_plot 

1410  ON  KEY  4  LABEL  "STOREHR"  GOTO  End 

1420  ON  KEY  9  LABEL  "EXIT"  CALL  Load_autost 

1430  GOTO  Keys 

1440  ! 

1450  ! 

1460  End:SUBEND 

1470  SUB  Load_plot 

1480  OFF  KEY 

1490  M\SS  STORAGE  IS  ":HP9895, 700,0" 

1500  LOAD  "PLOT:HP9895,702,3",1 

1510  SUBEND 

1520  SUB  Load_autost 

1530  OFF  KEY 

1540  LOAD  "AUTOST:  INTERNAL" 

1550  SUBEND 
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A7  .  8   TXDCR  VALS  ;  jl  Basic  Pingram  Which  Computes  ihs.  i 

Values  M.  the  Temperature  Transducer 


The  TXDCR_VALS  program  aids  in  the  determination  of  the  component 
values  of  the  temperature  transducer.  The  operator  defines  the  input 
temperature  range  and  the  desired  output  voltage  range.  Also,  the 
operator  must  define  a  value  for  the  V  ,  Rs,  Rf,  and  Rc.  With  the 
range  information  and  the  defined  components  the  necessary  values  of 
R  ,  R,,  and  R  are  computed.  The  operator  can  experiment  with 
different  ranges  and  values  of  the  defined  components  to  see  the  effect 
on  the  calculated  components.  The  program  may  also  generate  an  output 
voltage  versus  temperature  table. 

A7  .  8  . 1   The  Ma_Ln.  Rout  i  ne  of  TXfiCR  VAI.S 

The  main  routine  of  TXDCR_VALS  provides  the  main  control  of  the 
program.  Most  operator  input  is  accomplished  via  the  various 
subrout  ines  . 

Variable  def ini  t  ions 

Rc  -  a  real  variable  equal  to  the  value  of  the  Rc. 
Rf  -  a  real  variable  equal  to  the  value  of  the  Rf. 
Rs  -  a  real  variable  equal  to  the  value  of  the  Rs. 
Tambient  -  a  real  variable  equal  to  the  average  ambient 

temperature . 
Tmax    -  a  real  variable  equal  to  the  maximum  temperature  the 

transducer  is  to  measure. 
Tmin    -  a  real  variable  equal  to  the  minimum  temperatuare  the 

transducer  is  to  measure. 
Vma  x    -a   real   variable   equal   to   the   output   voltage 

corresponding  to  a  temperature  equal  to  Tmax. 
Vmin    -  a   real   variable   equal   to   the   output   voltage 

correspond int  to  a  temperature  equal  to  Tmin. 
Vr      -  a  real  variable  equal  to  the  reference  voltage. 


A7  . 8 . 2   En  t  e  r  rfrc  Suhrnut  ine 

The  Enter rfrc  subroutine  is  used  to  prompt  the  operator  for  the 

value  of  the  resistors  R^  and  R  . 
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pas  sed  tn  the  , 


None 


Re 
Rf 


.  ix  the  . 


-  real . 

-  real . 


Va  r  i  a  h 1 e  def in  i  t i  nns 

Re      -  a  real  variable  equal  to  the  operator  defined  value  of 


Rf 


real  variable  equal  to  the  operator  defined  value  of 


Rf 


A7  . 8 . 3   Enter  rs  Sub  rout  ine 

The  Enter_rs  subroutine  is  used  to  prompt  the  operator  for  the 
value  of  the  resistor  R  . 

Va r  i  a h  1  e s  passed  io_  the  . 
None 

Variables  returned  Jjy.  the  . 
Rs      -  real . 

Va  r  i  a  h 1 e  def ini t  ions 

Rs     -  a  real  variable  equal  to  the  operator  defined  value  of 

Rs- 

A7.8.4   Print  Subroutine 

The  Print  subroutine  prints  the  values  to  transducer  components. 
The  subroutine  comput  es  the  values  of  all  component  s  wh  ich  have  not 
been  def  ined. 


Va  r  j  a  b  1  e  S  passed  xo_  the  procedures 
None 


,  iX  the  procedures 


None 


Variable  def  ini  t.  inns 

Kl      -  a  real  variable  equal  to  the  gain  of  the  pre-ampl if ier. 
K2     -  a  real  variable  equal  to  the  gain  of  the  instrumentation 

amp  1 i  f  i  e  r . 
Re      -  a  real  variable  equal  to  the  operator  defined  value  of 
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Rf  -    a    real    variable    equal     to    the    operator    defined    value    of 

Rf. 

Rg  -    a  real    variable   equal    to    the    calculated  value  of  R   . 

Rr  -    a  real    variable   equal    to    the   calcualted  value  of  Rr. 

Rs  -    a  real    variable    equal     to    the    operator    defined    value    of 

Rs- 
Rt  -    a   real    variable   equal    to    the    calcualted   value   of  Rt. 

T_vcompO   -    a    real    variable    equal    to   the   temperature   corresponding 

to    a    compensation   voltage    of    zero. 
Tambient     -     a    real     variable    equal     to    the    average    ambient 

temperature . 
Tmax        -    a    real    variable    equal    to    the  maximum   temperature    the 

transducer     is    to   measure. 
Tmin        -    a   real    variable   equal    to    the  minimum  temperatuare   the 

transducer    is    to  measure. 
Tot_gain     -    a     real     variable     equal     to     the     total     gain    of    the 

transducer  . 
Vcomp_ta    -    a    real    variable    equal    to    the    compensation   voltage 

correspondiung    to    the    ambient    temperature. 
Va  -    a    real     variable    equal     to    the    second    order    coeficent    of 

the     second     order     function     relating     the     thermocouple 

voltage    to    the    sensing    junction    temperature. 
Vb  -    a   real    variable   equal    to   the   first   order   coeficent   of 

the     second     order     function     relating     the     thermocouple 

voltage    to    the    sensing    junction    temperature. 
Vmax        -    a      real      variable      equal       to      the      output      voltage 

corresponding    to    a    temperature    equal    to   Tmax. 
Vmin        -    a      real      variable      equal       to      the      output      voltage 

correspondint    to    a    temperature    equal    to   Tmin. 
Vr  -    a   real    variable   equal    to    the    reference   voltage. 

Vr_over_rr   -    a   real    variable   equal    to   the    refence   voltage  divided 

by    the    reference    resistor    (Rr). 


A7  . 1 1 8 


A7 . 8 . 5   Print  results  Subroutine 


The  Pr int_r e su 1 t s  subroutine  prints  a  table  of  the  transducer 
output  voltage  versus  the  thermocouple  temperature.  The  subroutine 
uses  the  calculated  component  values  to  determine  the  output  voltage. 


.  1SL   the  . 


None 


Variables  returned  Jul  the  procedures 
None 


Variable    def ini  t i  nns 

A  -    a     real     variable    used    as    a    pointer     into    the    Printer 

array. 
I  -    a    real    variable   used   as    a    loop   counter. 

J  -    a    real    variable   used   as    a    loop   counter. 

Printer    -    a   real    array  of   three   elements.     The   elements   contain 

the    specification   of    the   CRT,    the    thermal    printer,    and    the 

DECwr  iter   printer. 
Rr  -    a   real    variable    equal    to    the   calcualted  value   of  Rr. 

Rs  -    a    real    variable    equal     to    the    operator    defined    value    of 

V 

Rt      -  a  real  variable  equal  to  the  calcualted  value  of  R,. 
Tambient  -  a  real  variable  equal  to  the  average  ambient 

t  emp  e  r  a  t  u  r  e . 
Temp    -  a  real  variable  equal  to  the  temperature  value  for  which 

the  output  voltage  is  computed. 
Tmax    -  a  real  variable  equal  to  the  maximum  temperature  the 

transducer  is  to  measure. 
Tmin    -  a  real  variable  equal  to  the  minimum  t  empe  ratuare  the 

transducer  is  to  measure. 
Tot gain  -  a  real  variable  equal  to  the  total  gain  of  the 

t  ransducer . 
Vout    -a   real   variable   equal   to   the   output   voltage 

corresponding  to  a  temperature  equal  to  Temp. 
Vr     -  a  real  variable  equal  to  the  reference  voltage. 


A7.119 


A7 . 8 . 6      Txdcr    range    Sub r nut  ine 


The  Txdcr_range  subroutine  prompts  the  operator  for  the 
temperature  range  the  transducer  will  measure,  the  output  voltage 
corresponding    to    the    temperature    range,    and    the    ambient    temperature. 

Var  i  abl  es    passed  _lq_  the    procedures 
None 

Var  iabl  es    returned  iv_  the    procedures 

Tambi  ent    -    real. 

Tmax         -    real. 

Tmin        -    real . 

Vma  x        -real. 

Vmin        -    real . 
Var iabl e    def ini  t  ions 


Tambient     -    a    real     variable    equal     to    the    average    ambient 

temperature . 
Tmax        -    a    real    variable    equal    to    the   maximum  temperature    the 

transducer    is    to   measure. 
Tmin        -    a    real    variable    equal    to   the  mi  nimum  t  empe  ra  tuar  e   the 

transducer    is    to   measure. 

-  a      real       variable      equal       to      the      output      voltage 
corresponding    to    a    temperature    equal    to   Tmax. 

-  a      real      variable      equal       to      the      output      voltage 
correspondint    to    a    temperature    equal    to   Tmin. 


\faax 


Vmin 


A7 . 8 . 7      Vr 

The   Vr    subroutine    is   used    to   prompt    the   operator    for    ihe   value   of 
the    voltage    reference   V,. 


.  _LQ_  the  . 


None 


V: 


.  .ax  the  . 
real. 


Va  r  i  a  b 1 e    def ini  t  ions 

Vr  -    a    real    variable    equal     to    the    operator    defined    value    of 

V 
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A7  .  8  .  8     YlSL  Function 

The  Vtc  function  calculates  the  thermocouple  voltage 
corresponding  to  the  specified  sensing  junction  temperature  and  a 
specified    reference    junction    temperature. 


Tj 
Tref 


.  _Lo_  the  . 

-  real . 

-  real  . 


to     the     sensing     junction 
to     the     reference     junction 


Var i  able    def ini  t  ions 

Tj  -    a      real      variable     equal 

temperature . 
Tref        -    a     real     variable     equal 

temperature . 
Va  -    a    real     variable    equal     to    the    second    order    coeficent    of 

the     second     order     function     relating     the     thermocouple 

voltage    to    the    sensing    junction    temperature. 
Vb  -    a   real    variable   equal    to    the   first   order   coeficent   of 

the     second     order     function     relating     the     thermocouple 

voltage    to    the    sensing    junction    temperature. 
Vc  -    a    real    variable    equal    to    the    zero   order   coeficent   of   the 

second   order   function   relating    the    thermocouple   voltage   to 

the    sensing    junction    temperature. 
Vtc  -    a     real     variable     equal     to     the     thermocouple    voltage 

corresponding    to    a    sensing    junction    temperature    of   Tj    and 

a    reference    junction    temperature    of   Tref. 
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A7 . 8 . 9 


Program  I.i  st  ing 


**************************************************»*********;, 

*** 


***  Routine  Title: 


TXECRJ/ALS 


*  *  * 
*** 

*  *  * 

*  ** 

*  *  * 

*  *  * 

*  *  * 
*** 

*  *  * 
**** 


HP  BASIC  FILENAME:   TXDCR_VALS 

Department  of  Electrical  and  Computer  Engineering 
Kansas  State  University 


Revision 


1.0 
2.0 


Date 


Programer 


lune  4,  1983       Michael  Masters 
January  30,  1985    Micheal  Masters 


************************** 


To  calculate  the  component  values  of  the  respirato 
temperature  transducer. 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290   CALL  Print 

300  Def ine_keys:> 

310  ! 

320  !  *****  Define  the  special  function  keys  ***** 

330   CM  KEY  2  LABEL  "Print"  GOTO  Pr int_resul ts 

340   CM  KEY  5  LABEL  "Range"  GOTO  Txdcr_range  - 

350   ON  KEY  6  LABEL  "Rf  &  Re"  GOTO  Enter_rfrc 

360   ON  KEY  7  LABEL  "Rs"  GOTO  Enter_rs 

370   ON  KEY  8  LABEL  "Vr"  GOTO  Vr 

380   ON  KEY  9  LABEL  "EXIT"  GOTO  Quit 

390  Do_nothing:GOTO  Do_nothing 

400   ! 

410   ! 

420  Txdcr_j-ange  :  ! 

430      ! 


***** 
*** 


************ 
**  * 

***     Purpose: 

*** 

*  ** 

*  +  * 
********** 


O' 


***************** 


**************************** 


COM  Tmax,Tmin,\Tnax,\min,Tambient,Rs,Rg,Rc,Rf  ,Vr,Rt,Rr,Tot_gai 

PRINTER   IS   1 

CALL  Txdcr^ange(Tmax,Tmin,Vmax,'Vinin,Tambient) 

CALL   Enter_rfrc(Rf,Rc) 

CALL  Enter_rs(Rs) 

CALL  Vr(Vr) 


440 

450 

460 

470 

480 

490 

500 

510 

520  Enter__rfrc 

530  ! 


Define  the  temperature  range  to  be  measured,  the  minimum  and  maximum 
voltage  output,  and  the  average  ambient  temperature. 

OFF  KEY 

CALL  Txdcr_range(Trmx,Tmin,\max,'Vmin,Tambient ) 

CALL  Print 

GOTO  Def ine_keys 


540  !  Enter  the  values  of  the  resistors  Rf  and  Re  which  develop  the  gain  Kl. 


560  OFF  KEY 

570  CALL  Enter_rfrc(Rf  ,Rc) 

580  CALL  Print 

590  GOTO  Def ine_keys 

600  ! 

610  ! 

620  Enter__rs: ! 
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630 

640 

650 

660 

670 

680 

690 

700  ! 

710  ! 

720  Vr : ! 

730 


Enter  the  value  of  the  resistor 

OFF  KEY 

CALL  Enter_rs(Rs) 

CALL  Print 

GOTO  Def ine_keys 


Enter  the  value  of  the  referenc  voltage. 

OFF  KEY 
CALL  Vr(Vr) 
CALL  Print 
GOTO  Def  ine_keys 


740 

750 

760 

770 

780 

790 

800  ! 

810  ! 

820  Print_results:l 

830 

840 

850 

860 

870 

880 

890 

900  ! 

910  ! 

920  ! 

930  Quit 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 


Enter  the  value  of  the  referenc  voltage. 

OFF  KEY 
PRINTER    IS   1 
CALL  Pr  int_resul  ts 
GOTO  Def  ine_keys 


Exit  the  program. 

BEEP 

PRINT  "PROGRAM  RUN  COMPLETE" 

END 


SUB  Txdcr_range(Trnax,Tmin,Vmax  ,Vmin,Tambient ) 
I 

!  define  the  temperature  range,  output  voltage,  and  ambient  temperature. 

INPUT  "ENTER  THE  MINIMA!  TEMPERATURE  TO  BE  MEASURED"  ,Tmin 

INPUT  "ENTER  THE  MAXIMA  TEMPERATURE  TO  BE  MEASURED"  ,Tmax 

INPUT  "ENTER  VOLTAGE  CORRESPONDING  TO  Tmin",Vmin 

INPUT  "ENTER  VOLTAGE  CORRESPONDING  TO  Tmax",Vmax 

INPUT  "ENTER  THE  AVERAGE  AMBIENT  TEMPERATURE"  ,Tambi en t 
SUBEND 


SUB  Enter_rfrc(Rf ,Rc) 

INPUT  "ENTER  THE  VALUE  OF  Rf",Rf 
INPUT  "ENTER  THE  VALUE  OF  Re", Re 

SUBEND 


SUB  Enter_rs(Rs) 

INPUT  "ENTER  THE  VALUE  OF  Rs  (close  to  100k)", Rs 
SUBEND 
SUB  Vr(Vr) 

INPUT  "ENTER  THE  VALUE  OF  THE  REFERENCE  VOLTAGE"  .Vr 
SUBEND 
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1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 


SUB  Print 

****  Compute  the  component  values  and  print  them.  *»** 

CDM  "Umax ,Tmin,Vmax  ,\min  .Tambient  ,Rs  ,Rg  ,Rc  ,Rf  ,Vr  ,Rt  ,Rr  ,Tot_gain 
PRINT  CHR$(12)  !  Clear  the  screen. 

Va=4.585E-8    !  The  coeficients  of  the  second  order  fit  of  the 
Vb=5.865E-5    !  thermocouple  voltage  to  the  temperature. 

Compute  the  total  gain,  the  pre-amp  gain,  AD521  gain,  and  Rg. 
To  t^ain=(\rmx-\Tmn)/(FNVtc(Tinax,Tambient)-FNVtc('Qnin, Tambient)* 
Kl=l+2*Rf/Rc 
K2=Tot_gain/Kl 
Rg=Rs/K2 

Compute  the  value  of  the  feedback  resistor  in  the  reference 
junction  compensator  and  then  the  reference  voltage  resistor. 

Rt=Tot_gain*(2*Va*Tambient+Vb)*(l.E+6) 

Vcomp__t  a=Vmi  n  -To  t_ga  i  n*FNVt  c  (Tmi  n  ,Tamb  i  en t ) 

Vr_over_rr=(Tambient+273.2)*(l.OE-6)-Vcomp_ta/Rt 

Rr=Vr  /Vr_ove  r_r  r 

T_vcomp0-Vr_over_rr*(l.0E+6)-273.2 

Display  the  results. 
PRINT  USING  "2(K,rXD.ED)"; 'TEMPERATURE  RANGE:  ",Tmin,"  TO  ",Tmax 
PRINT  USING  "/,4(K)";"    Vo(",Trnin,",0)  =  ",Vmin 
PRINT  USING  "4(K)";"    Vo(" ,Tmax, ",0)  =  ",\faax 
PRINT  USING  "200"; "Tambient  =  ".Tambient 
PRINT  USING  "/.K.TXIIED. ED"; 'TOTAL  GAIN  -  ",Tot_gain 
PRINT  USING  "K";"       Kl  -  ",K1 
PRINT  USING  "K";"       K2  =  "  ,K2 

PRINT  USING  "2(K,MD.EDDE)";"Rc  =  ",Rc,"   Rf  -  ",Rf 
PRINT  USING  "2(K,MD.rXDE)";"Rs  -  ",Rs,"   Rg  =  ",Rg 
PRINT  USING  "/.K.EED.TXDD"; "VOLTAGE  REFERENCE  -  ",Vr 
PRINT  USING  "2(K,MD.TXDE)";"Rr  -  ",Rr,"    Rt  =  ",Rt 
PRINT  USING  "/,K,MD.DD";'Tref(Vcamp=0)  =  ",T_vcampO 

If  Rr  is  a  negative  resistance  the  reference  voltage  must  be 
changed  in  polarity. 
IF  Rr<0  THEN 

BEEP 

PRINT  USING  "/,K";"THE  SIGN  OF  Vr  MJST  BE  CHANGED  IN  ORDER  TO" 

PRINT  "HAVE  A  POSITIVE  Rr !  " 
END  IF 
SUBEND 
SUB  Print_results 

COM  Tmax  ,Tmin,Vmax,Vmin, Tambient  ,Rs  ,Rg  ,Rc  ,Rf  ,Vr  ,Rt  ,Rr  ,Tot_gain 

DIM  Printer(l:3) 

Printer(l)-1 

Printer(2)=701 

Printer(3)=9 

PRINT  CHR$(12) 

PRINT  "1.   CRT" 

PRINT  "2.  HP  Thermal  printer." 

PRINT  "3.  DecWriter." 

A-l 

INPUT  "WHICH  PRINTER  CO  TOU  WftNT?  1,2, 3", A 

PRINTER  IS  Printer(A) 

IF  A=2  THEN 
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1930 
1940 
1950 
1960 
1970 
1980 
1990 


PRINT  CHR$(27)&"&alL" 
END  IF 
CALL   Print 
PRINT  USING  "3/" 


Print  the  transducer  output  voltages. 
PRINT  "       ****  The  output  voltage  of  the  reference  junction 


compensator. 


2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190   ! 

2200   ! 

2210 

2220 

vol  tage. 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2330 

Vr/Rr)*Rt 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 

2420 


PRINT 

PRINT  "      I"; 

FOR  1=0  TO  .9  STEP  .1 

PRINT  USING  "#,K,.D,K";"   ",I,"   I" 
NEXT  I 

PRINT  USING  "/,#,"••      l"",10("" I"")" 

FOR  I=INT(Tambient-5)  TO  INT(Tambient+15) 
PRINT  USING  "/,#,MD,K";I,H---I" 
FOR  J=0  TO  .9  STEP  .1 
Temp=I+J 

Vout=((Temp+273.2)*1.0E-6-Vr/Rr)*Rt 
IF  Vout>-10  THEN 

PRINT  USING  "#,DD.DDD,K";Vout,"l" 
ELSE 

PRINT  USING  "#,K";"**.***I" 
END  IF 
NEXT  J 
NEXT  I 
PRINT  USING  "/,""      -"",10("" "")" 

Print  the  transducer  output  voltages. 
PRINT  USING  "3/" 
PRINT  "       ***»  Tjje  respiratory  temperature  transducer  output 

*  *  *  *" 

PRINT 

PRINT  "      I"; 

FOR  1=0  TO  .9  STEP  .1 

PRINT  USING  "#,K,  .D,K";"   ",I,"   I" 
NEXT  I 

PRINT  USING  "/,#,""      I"", IOC" I"")" 

FOR  I=INT(Tmin-5)  TO  INT(Tmax+5) 

PRINT  USING  7,#,MD,K";I,"—I" 

FOR  J=0  TO  . 9  STEP  . 1 
Temp=I+J 
Vout=Tot_gain*FNVtc(Temp,Tambient)+((Tambient+273.2)*l.E-6- 

IF  Vout>-10  THEN 

PRINT  USING  "#,ED.rXD,K";Vout,"l" 
ELSE 

PRINT  USING  "#iK";"**.***l" 
END  IF 


NEXT  J 

NEXT  I 

PRINT  USING  "/,""      -"",10("" "")" 

PRINTER  IS  1 
2430  SUBEND 
2440  ! 
2450  ! 
2460  ! 

2470  DEF  FNVtc(Tj.Tref) 
2480      Va=4.585E-8 
2490      Vb=5.865E-5 
2500      Vc=1.9807E-7 

2510      Vtc-Va*Tj~2+Vb*Tj+Vc-(Va*Tref-2+Vb*Tref+Vc) 
2520      RETURN  Vtc 
2530  FNEND 
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Abstract 

Breath-by-breath  respiratory  function  studies  require  an  accurate  means 
of  computing  inspiratory  and  expiratory  volumes,  from  which  the  ventilation 
values  are  computed.  Host  important  in  these  calculations  is  the  attainment 
of  a  valid  respiratory  flow  signal  under  known  temperature  and  pressure 
conditions.  A  computer  based  respiratory  measurement  system  (CBRMS)  having 
the  ability  to  monitor  respiratory  flow,  fractional  0  ,  and  fractional  CO 
has  been  enhanced  with  a  respiratory  flow  temperature  transducer  and  with  gas 
viscosity  calculations.  These  enhancements  allow  for  more  accurate  volume 
calculations.  Also  the  display  of  the  results  has  been  enhanced. 

A  rapidly  responding  temperature  transducer  based  on  a  chromel- 
constantan  (type  E),  0.001  in.  diameter,  thermocouple  is  designed  and 
incorporated  into  the  CBRMS  for  monitoring  respiratory  flow  temperature.  The 
instantaneous  flow  gas  viscosity  is  calculated  with  this  temperature  signal, 
the  fractional  0  signal,  the  fractional  CO  signal,  the  ambient  conditions, 
and  the  calculated  water  vapor  signal.  This  viscosity  is  used  to  compute 
respiratory  flow  from  the  pneumotachograph  differential  pressure  signal,  a 
signal  previously  assumed  to  be  directly  proportional  to  the  flow,  in 
accordance  with  Poiseuille's  law.  The  temperature  signal,  water  vapor 
signal,  and  the  barometric  pressure  are  used  to  convert  this  flow  to  STPD 
conditions.  The  STPD  flow  is  multiplied  by  the  dry  gas  concentrations. 
These  products  are  integrated  to  obtain  the  inspiratory  and  expiratory  gas 
volumes.  The  difference  of  these  inspiratory  and  expiratory  volumes  yields 
0  consumed  and  CO  produced.  Inspiratory  and  expiratory  tidal  volumes  are 
obtained  by  integrating  the  STPD  flow  and  scaling  to  BTPS  conditions.  Other 
ventilation  values  are  computed  from  these  volumes  and  the  respiratory  cycle 
time.  These  breath-by-breath  values  may  be  displayed  as  the  respiratory  data 
are  being  analyzed  and  in  a  variety  of  formats  post-analysis.  The  mean 
respiratory  variables  for  the  entire  analyzed  data  are  displayed  post- 
analysis. 

The  averages  of  a  specified  number  of  consecutive  breath-by-breath 
values  or  the  average  of  the  breath-by-breath  values  appearing  in  a  specified 
time  window  may  then  be  displayed  graphically  or  printed  in  a  tabular  format. 
The  window  averages  can  be  computed  for  specific  points  in  time  and  compared 
to  window  averages  of  another  subject' or  another  exercise  regimen. 


